Pascal ABC.
Заполнить массив из 20-ти элементов целыми случайными числами в диапазоне [-50; 50], вывести максимальный элемент и минимальный элемент и их индексы.

Для решения задачи нужно:

1. Объявить массив из 20 элементов.

2. Заполнить его случайными числами от -50 до 50.

3. Найти максимальный и минимальный элементы.

4. Запомнить их индексы.

5. Вывести результаты.

Пример программы на Pascal ABC:

pascal




program MaxMinArray;
var
  a: array[1..20] of integer;
  i, max, min, imax, imin: integer;
begin
  Randomize;
  // Заполнение массива случайными числами
  for i := 1 to 20 do
  begin
    a[i] := Random(101) - 50;
    Write(a[i], ' ');
  end;
  Writeln;
  // Изначально считаем первый элемент максимальным и минимальным
  max := a[1];
  min := a[1];
  imax := 1;
  imin := 1;
  // Поиск максимального и минимального элементов
  for i := 2 to 20 do
  begin
    if a[i] > max then
    begin
      max := a[i];
      imax := i;
    end;
    if a[i] < min then
    begin
      min := a[i];
      imin := i;
    end;
  end;
  // Вывод результата
  Writeln('Максимальный элемент: ', max);
  Writeln('Его индекс: ', imax);
  Writeln('Минимальный элемент: ', min);
  Writeln('Его индекс: ', imin);
end.

Пример работы программы:

-12 34 5 -48 20 7 50 -3 11 -25 8 16 -9 0 41 -50 13 6 22 -4
Максимальный элемент: 50
Его индекс: 7
Минимальный элемент: -50
Его индекс: 16

Индексация массива начинается с 1, поэтому первый элемент имеет индекс 1, второй — индекс 2 и так далее.