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à

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