Составьте программу, которая заполняет массив а[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.