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

В переменную maksim_el запишем значение максимального элемента, а для того, чтобы знать, где именно он находится, нам нужно будет запомнить его порядковый номер. Сделаем это с помощью переменной maksim_el_index.

В переменную minim_el запишем значение минимального элемента, а для того, чтобы знать, где именно он находится, нам нужно будет запомнить его порядковый номер. Сделаем это с помощью переменной minim_el_index.

Найдем максимальный и минимальный элементы с помощью циклов:

for i:integer≔1 to 100 do

if (a[i] > maksim_el) then

maksim_el : = a[i];

for i:integer≔1 to 100 do

if (a[i] < minim_el) then

minim_el : = a[i];

Поменяем местами элементы:

a[maksim_el_index] ≔ minim_el;

a[minim_el_index] ≔ maxim_el;