Program bai_tap;

Uses crt;

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

               S,i,n,max,min: integer;

               Tbc: real;

Begin 

Write ('nhap n='); 

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

end;

Max:=A[1];

For i:=2 to n do

If A[i] >max then max:=A[i];

Min:=A[1];

For i:=2 to n do 

If A[i]< min then min:= A[i];

S:=0;

For i:=1 to n do 

S:=S+A[i];

Tbc:=S/n;

Writeln ('So lon nhat trong day la:',max);

Writeln ('So nho nhat trong day la:',min);

Writeln ('Tong cua cac so trong day la:',S);

Writeln ('Trung binh cong cac so trong day la:', Tbc:8:3);

Readln 

End.

program ct;

uses crt;

var i,n,s,Max,Min:integer; tb:real;

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

begin

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(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 la:',Max);

writeln('gia tri nho nhat la:',Min);

s:=0;

for i:=1 to n do

begin

s:=s+A[i];

tb:=s/n;

end;

writeln('tong cua cac phan tu la:=',s);

writeln('trung binh cong cua cac phan tu la:=',tb:2);

readln

end.