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