uses crt;

Var a:array[1..1000] of integer;
i,n,max,min:integer;
Begin
Clrscr;
Write('Nhap do day day n = '); 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;
Writeln(' So lon nhat trong day la: ', max);
Write('Vi tri cua so nam thu: ');
For i:=1 to n do
If max=a[i] then write(i:2);
WRITELN;
WRITELN;
Writeln(' So nho nhat trong day la: ', min);
Write('Vi tri cua so nam thu: ');
For i:=1 to n do
If min=a[i] then write(i:2);
Readln
End.
*Nhớ tick và vote làm câu trả lời hay nhất giúp mình nhé! Thank kiu :33

program tim_max_min;

uses crt;

var i,n,max,min:integer;

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

begin

Clrscr;

write('Ban muon nhap bao nhieu phan tu= ');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;

writeln('so lon nhat la:',max);

writeln('so be nhat la:',min);

writeln('Vi tri cua so lon nhat la: ');

for i:=1 to n do

if max=a[i] then write(i:4);

writeln;

writeln('Vi tri cua so nho nhat la: ');

for i:=1 to n do

if min=a[i] then write(i:4);

readln;

end.

Chúc Bạn Hc Thật Tốt