Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a) INPUT: Danh sách số học sinh trong lớp.
OUTPUT: Số học sinh trong lớp mang họ Trần.
b) INPUT: Dãy gồm n số.
OUTPUT: Tổng các phần tử lớn hơn 0.
c) INPUT: Cho n số.
OUTPUT: Số các số có giá trị nhỏ nhất trong n số.
a) INPUT: Danh sách số học sinh trong lớp.
OUTPUT: Số học sinh trong lớp mang họ Trần.
b) INPUT: Dãy gồm n số.
OUTPUT: Tổng các phần tử lớn hơn 0.
c) INPUT: Cho n số.
OUTPUT: Số các số có giá trị nhỏ nhất trong n số.
Program HOC24;
var min,max,n,i: integer;
t: longint;
a: array[1..1000] of integer;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Cac so chan trong mang la: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
writeln;
t:=0;
for i:=1 to n do if a[i] mod 2=1 then t:=t+a[i];
writeln('Tong cac so le la: ',t);
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i] <max then max:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
write('Gia tri nho nhat la:' ,min);
readln
end.
a) var a:array[1..1000] of integer;
i,k:integer;
p:longint;
begin
write('k = ');readln(k);
p:=1;
for i:=1 to k do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
if a[i]<30 then p:=p*a[i];
end;
write('Tich la ',p);
readln
end.
b)
var a:array[1..1000] of integer;
i,k:integer;
s:longint;
begin
write('k = ');readln(k);
for i:=1 to k do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
if a[i]<100 then s:=s+a[i];
end;
write('Tong la ',s);
readln
end.
uses crt;
var x,s,min:real;
i,n:integer;
begin
clrscr;
readln(n);
min:=-32000;
s:=1;
for i:=1 to n do
begin
readln(x);
if min>x then min:=x;
s:=s*x;
end;
writeln('Nho nhat la: ',min:4:2);
writeln('Tich la: ',s:4:2);
readln;
end.
program BaiTapMang;
var
n, i, max, min, s: longint;
a: array[1..100] of integer;
begin
// Nhập số phần tử của mảng
write('Nhap so phan tu cua mang: ');
readln(n);
// Nhập giá trị từng phần tử của mảng
for i := 1 to n do
begin
write('Nhap gia tri phan tu thu ', i, ': ');
readln(a[i]);
end;
// Xuất mảng theo chiều ngang
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
// Tìm giá trị lớn nhất và nhỏ nhất của mảng
max := a[1];
min := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
writeln;
writeln('Gia tri lon nhat cua mang la: ', max);
writeln('Gia tri nho nhat cua mang la: ', min);
// Tính tổng các phần tử âm của mảng
s:= 0;
for i := 1 to n do
begin
if a[i] < 0 then
s:= s + a[i];
end;
writeln('Tong cac phan tu am cua mang la: ', s);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,t,ln,nn:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
nn:=a[1];
ln:=a[1];
for i:=1 to n do
begin
t:=t+a[i];
if nn>a[i] then nn:=a[i];
if ln<a[i] then ln:=a[i];
end;
writeln(t);
writeln(ln);
writeln(nn);
writeln(t/n:4:2);
readln;
end.
program PSMCG;
var
arr: array of integer;
n, i: integer;
begin
write('Nhap so phan tu cua day so: ');
readln(n);
setlength(arr, n);
for i := 0 to n-1 do begin
write('Nhap gia tri thu ', i+1, ': ');
readln(arr[i]);
end;
writeln('Gia tri da nhap: ');
for i := 0 to n-1 do
writeln(arr[i]);
end.
A
D