Program Cau2;

Uses crt;

Var i,n,max,min: integer;

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

Begin

Clrscr; Write(‘ Nhap do dai cua day so, n= ‘);

Readln(n); Writeln(‘Nhap cac phan tu cua day so: ‘);

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;

Writeln(‘So lon nhat la max= ‘, max);

Writeln(‘So nho nhat la min= ‘, min);

Readln;

End.

@ xin hay nhất ạ 🌹🌹

program BT;

uses crt;

var A:array [1..500] of integer;

      n,i,max,min: integer;

Begin

         clrscr;

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

         max:=1; min:=1;

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  if max<A[i] then max:=A[i];

                  if min>A[i] then min:=A[i];

         end;

         writeln('So lon nhat trong ',n,' so vua nhap la: ',max);

         write('So nho nhat trong ',n,' so vua nhap la: ',min);

         readln

End.