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

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

program min_max;var a: array [1..5] of integer;max,min: integer;beginwriteln(\'Введите 5 элементов массива через пробел \');readln(a[1], a[2], a[3], a[4], a[5]);max:= 1;min:= 1;for i: integer:= 1 to 4 dobeginif 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.