Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 0 до 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] > a[aimax] then aimax:=i

else if a[i] < 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.