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

uses crt;

var A : array [1 .. 100] of integer;

    i, n, M, T : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('Nhap day gom ', n ,' so : ');

T := 0;

for i := 1 to n do 

    begin

        read(A[i]);

        T := T + A[i]; 

    end;

M := A[1];

for i := 2 to N do

    if A[i] > M then M := A[i];

writeln('Tong cac phan tu : ', T);

writeln('Trung binh cong cac phan tu : ', T / N : 2 : 2);

writeln('So lon nhat trong day : ', M);

readln

end.