Giúp mik vs ạ đang cần gấp Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn 50 từ bàn phím 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ã …
Giúp mik vs ạ đang cần gấp Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn 50 từ bàn phím 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ã …
var a:array[1..100]of longint;
n,i,max:longint;
s:real;
begin
read(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do s:=s+a[i];
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln(‘tong day la: ‘,s:2:0);
writeln(‘trung binh day: ‘,s/n:6:2);
write(‘so lon nhat: ‘,max);
end.
Muốn xem kq nhấn đồng thời alt+f5 nhé!!!
Đừng quên VOTE cho mình nhé !!! He he