Хелп информатика 10 класс
Заполнить массив случайными числами и переставить местами максимальный и минимальный элемент массива

const N=10;

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

i,max,min: integer;

begin

randomize();

max:=1;

min:=1;

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 a[i]:=random(1,100);

 write(a[i],' ');

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

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

 end;

i:=a[min];

a[min]:=a[max];

a[max]:=i;

writeln();

writeln('Результат: ');

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

end.