program max,min;
uses crt;
var i,n,max,min:integer;
A: array[1...100]of integer;
bagin
clrscr;
writeln ( 'hay nhap do dai cua day so, N ='); readln(n);
end;
for i:=1 to n do
begin ( 'a[',i,']=');readln(a[i]);
end;
max:=a[1] ; min a[1];
for i:=2 to n do
begin if max<a[1] then max:=a[i];
if min > a[1] then min :=a[i];
end;
writeln('so lon nhat la:', max);
writeln('so nho nhat la:', min);
readln
end.
