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.

program ct;

uses crt;

var i,n,Max,Min:integer;

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

begin

clrscr;

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

    for i:=1 to n do

begin

  write('nhap mang 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;

writeln('gia tri lon nhat la:',Max);

writeln('gia tri nho nhat la:',Min);

readln

end.