Поменять местами максимальный и минимальный элементы массива.

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

min, a, p: integer;

begin

read (n) ;

for i: = 1 to n do

read (a[i]) ;

min:a[1]; p:=1;

for i:=2 to n do

if a[i]< min then

begin

min:=a[i];

p:=i;

end;

writeln ('min,=;, min) ;

writeln (' на позиции; p) ;

end.