uses crt;
var i,n,t:integer;
a:array[1..200]of integer;
max,min:longint;
kq:real;
begin
clrscr;
write('n='); readln(n);<br />if (0<n) and (n<=200) then<br />begin<br />for i:=1 to n do<br />begin<br />write('a[',i,']='); readln(a[i]);
end;
{-------------------------gia-tri-nho-nhat------------------------}
min:=maxint;
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('gia tri nho nhat la: ',min);
{-------------------------gia-tri-lon-nhat------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('gia tri lon nhat la: ',max);
{------------------------trung-binh-cong-cua-day-so---------------}
t:=0;
for i:=1 to n do
t:=t+a[i];
kq:=t/n;
writeln('trung binh cong cua day so la: ',kq:4:2);
end
else writeln('vui long nhap lai');
readln;
end.