Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапозоне

var a: array[1..10] of integer;

amin, amax, aimin, aimax, i: integer;

begin

writeln(Включаем генератор случайных чисел);

randomize;

writeln(Наполняем массив случайными числами);

for i := 1 to 10 do a[i] := random(10);

writeln(Выводим начальный массив);

for i := 1 to 10 do write(a[i]:4);

writeln(Отыскиваем малый элемент и его позицию);

aimax:=1;

aimin:=1;

for i:=1 to 1 do begin

if a[i] gt; a[aimax] then aimax:=i

else if a[i] lt; a[aimin] then aimin:=i;

end;

writeln(Меняем малый и наибольший элементы местами);

amax := a[aimax];

amin := a[aimin];

a[aimax] := amin;

a[aimin] := amax;

writeln(Выводим новый массив);

for i := 1 to 10 do write(a[i]:4);

end.