Дан массив целых чисел. Поменять местами первый максимальный (если таковых несколько) и последний минимальный (если таковых несколько) по значению элементы массива. Число элементов в массиве не более 10-ти Pascal

program zz1;

const n = 10; / /задаем количество элементов в массиве

var i, max1, min, k1, k2, v:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (6);

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

max1:=0;

for i:=n downto 1 do / / находим максимальный элемент

if m[i]>=max1 then begin max1:=m[i]; k1:=i; end;

writeln (' максимальный элемент = ', max1); / / выводим ответ

min:=1000000; / /задаем начальное значение для минимального элемента

for i:=1 to n do / / организуем цикл, в котором переберем все числа массива

if m[i] < = min then begin min:=m[i]; k2:=i; end; / /проверяем, если число из массива меньше минимального, то записываем его в минимальное

write (' минимальный элемент = ', min); / / выводим ответ

writeln; / / переходим на новую строку для вывода ответа

v:=m[k1]; m[k1]:=m[k2]; m[k2]:=v;

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

end.