В одномерном массиве А (10) найти максимальный элемент, вывести его значение и индекс. Заменить все элементы большие 1, но меньшие 4 значением максимального элемента. Полученный массив вывести на экран.

Const N = 10;

var i, max: integer;

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

begin

max : = 1;

writeln ('Массив до: ') ;

for i : = 1 to N do begin

a[i] : = random (10) ;

write (a[i]:3) ;

if (a[i] > a[max]) then max : = i;

end;

writeln (#10, 'Массив после: ') ;

for i : = 1 to N do begin

if (a[i] > 1) and (a[i] < 4) then a[i] : = a[max];

write (a[i]:3) ;

end;

writeln (#10, 'Максиммальный элемент: ', a[max], #10, 'Его индекс: ', max) ;

end.