uses crt;
var a:array [1..100] of real;
i: integer;
n,max,min,s: real;
begin
clrscr;
write('Nhap n = '); readln(n);
writeln('Nhap cac phan tu cua n la: ');
for i:=1 to n do
begin
write('a[',i,']= '); readln(a[i]);
s:=s+a[i];
end;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if max < a[i] then max:=a[i];
if min > a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat trong mang la: ',max);
writeln('Gia tri nho nhat trong mang la: ', min);
writeln('Tong gia tri cac phan tu trong mang la: ',s);
writeln('Gia tri trung binh cua cac phan tu trong mang la: ',s/n);
readln;
end.
