uses crt;
var i,n,max,min,t1,t2,j,tam:integer;
a:Array[1..100] of integer;
begin
clrscr;
write('N=');readln(n);
for i:=1 to n do readln(a[i]);
max:=a[1];
min:=a[1];
t1:=1;
t2:=1;
for i:=2 to n do
begin
 if max<a[i] then begin max:=a[i];t1:=i;end;
 if min>a[i] then begin min:=a[i];t2:=i;end;
end;
writeln('Max=',max);
writeln('Vi tri max=',t1);
writeln('Min=',min);
writeln('Vi tri min=',t2);
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]>a[j] then
 begin
  tam:=a[i];
  a[i]:=a[j];
  a[j]:=tam;
 end;
writeln('Mang da sap xep:');
for i:=1 to n do write(a[i],' ');
readln;
end.

$\text{Đáp án :}$

uses crt;

var i,n,max,min,t1,t2,j,tam:integer;

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

begin

clrscr;

write

for i:=1 to n do readln

max:=a[1]:

min:=a[1]:

t1:=1;:t2:=1;

for i:=2 to n do

begin

 if max<a[i] then begin max:=a[i];t1:=i;end;

 if min>a[i] then begin min:=a[i];t2:=i;end;

end;

writeln

writeln

writeln

writeln

for i:=1 to n-1 do

for j:=i+1 to n do

 if a[i]>a[j] then

 begin

  tam:=a[i]:

  a[i]:=a[j]:

  a[j]:=tam:

 end:

writeln('Mang da sap xep:'):

for i:=1 to n do write(a[i],' '):

readln:

 theend.

$\text{@1412}$