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

В переменную maksim_el запишем значение наибольшего элемента, а для того, чтоб знать, где конкретно он находится, нам необходимо будет запомнить его порядковый номер. Создадим это с подмогою переменной maksim_el_index.
В переменную minim_el запишем значение малого элемента, а для того, чтоб знать, где конкретно он находится, нам нужно будет уяснить его порядковый номер. Сделаем это с помощью переменной minim_el_index.
Найдем наибольший и малый элементы с поддержкою циклов:
for i:integer1 to 100 do
if (a[i] gt; maksim_el) then
maksim_el : = a[i];
for i:integer1 to 100 do
if (a[i] lt; minim_el) then
minim_el : = a[i];
Поменяем местами элементы:
a[maksim_el_index] minim_el;
a[minim_el_index] maxim_el;