Ответ:

begin

var a := ArrRandom(20, 50, 150);

var (imax, imin) := (0, 0);

for var i := 1 to a.High do

begin

  a[i].Print;

  if a[i] > a[imax] then

    imax := i

  else if a[i] < a[imin] then

    imin := i

end;

Writeln;

$'Минимальный элемент номер  {imin+1} равен {a[imin]}'.Println;  

$'Максимальный элемент номер {imax+1} равен {a[imax]}'.Println;  

end.

Ответ:

program z1;

const n=20;

var a:array [1..n] of integer;

i,maxi,mini:integer;

begin

maxi:=1;

mini:=1;

write('Массив А: ');

randomize;

for i:=1 to n do

begin

a[i]:=random(201)+50;

if a[i] > a[maxi] then maxi:=i;

if a[i] < a[mini] then mini:=i;

write(a[i]:5)

end;

writeln;

writeln('Максимальный элемент: a[',maxi,'] = ',a[maxi]);

writeln('Минимальный элемент: a[',mini,'] = ',a[mini])

end.

Объяснение:

maxi - индекс максимального элемента

mini - индекс минимального элемента

Цикл с параметром:

1) задаём значение элемента с текущим индексом

2) сравниваем значение элемента с текущим индексом со значением элемента с  индексом максимального элемента, если значение элемента с текущим индексом больше значения элемента с  индексом максимального элемента, то присваиваем индексу максимального элемента значение текущего индекса

3) сравниваем значение элемента с текущим индексом со значением элемента с  индексом минимального элемента, если значение элемента с текущим индексом меньше значения элемента с  индексом минимального элемента, то присваиваем индексу минимального элемента значение текущего индекса

4) выводим на экран значение элемента с текущим индексом

Выводим на экран значения максимального и минимального элементов и их индексы