Program hoidap247;

Uses crt;

Var i,n,Max,Min:integer;

S:longint;

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

Begin

Clrscr;

S:=0;

Write('nhap n tu ban phim');

Readln(n);

For i:=1 to n do

Begin

Write('A[',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;

Write('so nho nhat la',Min);

Write('so lon nhat la',Max);

Readln

End.

uses crt;
var max,min,n,i:integer;a:array[1..100] of integer;
begin
clrscr;
write('Nhap so luong phan tu cua day: ');readln(n);
For i:=1 to n do
begin write('Nhap so thu ',i,': ');readln(a[i]) end;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
 if a[i]>max then max:=a[i];
 if a[i]<min then min:=a[i]
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln
end.