Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номера.

Если максимальных или минимальных элементов несколько, программа выводит их номера.

program min_max;

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

max, min: integer;

begin

writeln ('Введите 5 элементов массива через пробел ');

readln (a[1], a[2], a[3], a[4], a[5]);

max: = 1;

min: = 1;

for i: integer: = 1 to 4 do

begin

if a[max] < a[i + 1] then max: = i + 1;

if a[min] > a[i + 1] then min: = i + 1;

end;

writeln ('Макс. элемент = ', a[max]: 4);

writeln ('Мин. элемент = ', a[min]:4);

Write ('Номер макс. элемента: ');

For i: integer: = 1 to 5 do if a[max] = a[i] then write (i:3);

writeln ();

Write ('Номер мин. элемента: ');

For i: integer: = 1 to 5 do if a[min] = a[i] then write (i:3);

end.