Нужно составить программу в паскале.
Дан массив из 20 элементов,заполненный случайными числами от -15 до 30. Нужно найти номера максимального и минимального элементов этого массива.
Заранее

ответ:program q174147740;

var

 i, max, min: integer;

 a: array [1..20] of integer;

begin

 Randomize;

 for i := 1 to 20 do

 begin

 a[i] := Random(100);

 Write(a[i]:3);

 if (i = 1) then

 begin

  max := a[i];

  min := a[i];

 end

 else

 begin

  if (a[i] > max) then

   max := a[i];

  if (a[i] < min) then

   min := a[i];

 end;

 end;

 WriteLn;

 WriteLn('Сумма: ', max + min);

 ReadLn;

end.

Объяснение: