uses crt;

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

i,n,max,min: integer;

begin

clrscr;

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

writeln ('nhap diem: ');

for i:=1 to n do readln (a[i]);

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

if a[i]<min then min:=a[i];

if a[i]>max then max:=a[i];

end;

writeln ('Cao nhat: ',max);

writeln ('Thap nhat: ',min);

readln;

end.

uses crt;
var a: array[1..100] of real;
    n,i,min,max: integer;
begin
clrscr;
    write('Nhap so luong hs: '); readln(n);
    for i:=1 to n do begin
        write('Hoc sinh thu ',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('Diem cao nhat: ', max);
    writeln('Diem thap nhat: ', min);
    readln
end.