Program bai_tap;

Uses crt;

Var A :  array [1..150] of integer;

               i,n,max,min: integer;

Begin 

Write ('nhap n='); 

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

end;

Max:= A[1];

For i:= 2 to n do

If A[i] >max then max:= A[i];

Min:= A[1];

For i:=2 to n do 

If A[i]< min then min:= A[i];

Writeln ('So lon nhat trong day la:',max);

Writeln ('So nho nhat trong day 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[1];

end;

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

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

readln

end.