program Mang;

uses crt;

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

      n,i,max,min: integer;

Begin

         clrscr;

         write('Nhap so phann tu: '); 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;

         write('max = ',max,' ,  min = ',min);

         readln

End.

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('Gtri lon nhat trong day la: ', max, '.Va vi tri cua no nam o:');
For i:=1 to n do if max=a[i] then write(i:4); Writeln;
Writeln('Gtri nho nhat trong day la: ', min, '.Va vi tri cua no nam o:');
For i:=1 to  n do if min=a[i] then writeln(i:4);
Readln;
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Đa tạ :D
*Dù số nhỏ nhất có là 1 hay 2,.. thì min kết quả vẫn chỉ đúng số đó :D