Viết 1 chương trình thực hiện các yêu cầu sau 2) tính tổng và trung bình cộng các phần tử của dãy số 3) in ra màn hình số lớn nhất trong dã … em cảm ơn
Viết 1 chương trình thực hiện các yêu cầu sau 2) tính tổng và trung bình cộng các phần tử của dãy số 3) in ra màn hình số lớn nhất trong dã … em cảm ơn
uses crt;
var a: array[1..100] of integer;
i,n,s,max: integer;
tbc: real;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap phan tu thu ‘,i,’: ‘); readln (a[i]);
s:=s+A[i];
end;
max:=a[1];
for i:=2 to n do
if a[i]>max then max=a[i];
tbc:=s/n;
writeln (‘tong cua day so tren: ‘,s);
writeln (‘trung binh cong cua day so tren: ‘,tbc:1:2);
writeln (‘so lon nhat trong day: ‘,max);
readln;
end.
uses crt;
var a: array[1..100] of integer;
i,n,t,m: integer;
tb: real;
begin
clrscr;
write (‘nhap so luong phan tu: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
t:=t+a[i];
end;
max:=a[1];
for i:=2 to n do
if a[i]>max then max=a[i];
tb:=t/n;
writeln (‘tong cua day so tren: ‘,t);
writeln (‘trung binh cong cua day so tren: ‘,tb:1:2);
writeln (‘so lon nhat trong day: ‘,m);
readln;
end.