Lập chương trình nhập vào 15 số nguyên .sau đó, thực hiện các công việc sau 1 tính trung bình của 15 số 2.cho biết số lượng số nguyên lớn hơn trung bình 3.tìm số lớn nhất
1 câu trả lời
program mang15so;
uses crt;
var A:array[1..15] of integer;
t:longint;
d,i:byte;
max:integer;
begin
clrscr;
writeln('NHAP TUNG SO');
t:=0;
for i:=1 to 15 do
begin
write('So thu ',i,': );
readln(A[i]);
t:=t+A[i];
end;
writeln('Trung binh cong cua chung la: ',t/15:2:2);
d:=0; max:=A[1];
for i:=1 to 15 do
begin
if A[i]>tb/15 then d:=d+1;
if A[i]>max then max:=A[i];
end;
writeln('Trong day co ',d,' so lon hon trung binh');
write('So lon nhat la: ',max);
readln
end.
