uses crt;

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

n,i,max,min:integer;

begin

clrscr;

write('Nhap so hoc hoc sinh: '); readln(n);

write('Co ',n,' ban co chieu cao (cm) lan luot la ');

for i:=1 to n do read(A[i]);

max:=A[1];

min:=A[1];

for i:=1 to n do

begin

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

if max<A[i] then max:=A[i];

end;

write('Vay ban co chieu cao thap nhat la ',min,' cm va ban co nhieu cao nhat la ',max,' cm ');

readln

end.

program bestanhvan;
uses crt;
var max,min,i,n:integer;
a:array[1..50] of integer;
begin
clrscr;
writeln('nhap so hoc sinh cua lop: ');read(n);
writeln('nhap chieu cao cho ',n,' hoc sinh: ');
max:=-1; 
for i:=1 to n do
begin
read(a[i]);
min:=a[1];
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln('chieu cao cao nhat la: ',max);
writeln('chieu cao thap nhat la: ',min);
readln;
end.