var i: longint;
max,min: real;
a: array [1..37] of real;
begin
clrscr;
max:=0;
min:=101;
for i:=1 to 37 do
begin
write('Nhap diem cua hoc sinh thu ',i);
read(A[i]);
end;
for i:=1 to 37 do
begin
if A[i]>max then max:=A[i];
if A[i]<min then min:=A[i];
end;
writeln;
writeln('Hoc sinh diem cao nhat lop la: ',max:0:4);
writeln('Hoc sinh diem thap nhat lop la: ',min:0:4);
readln;
end.