Nhập dãy n số nguyên, in ra màn hình số nhỏ nhất và số lớn nhất, với n được nhập từ bàn phím

program ct;

uses crt;

var Max,Min,i,n:integer;

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

Begin

clrscr;

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

  for i:=1 to n do

begin

write('nhao 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('so lon nhat la',Max);

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

readln

end.

Program Hotboy ;

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.