Ввести массив A (N). Найти максимальный элемент массива, произведение нечетных элементов массива. Заменить максимум на произведение. Вывести полученный массив и произведение.

program zz1;

const n = 7; / / задаем количество элементов в массиве

var i, s, p, k, max1:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (51);

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

max1:=0; p:=1;

for i:=1 to n do / / находим максимальный элемент и его номер

if m[i]>max1 then begin max1:=m[i]; k:=i; end;

for i:=1 to n do / / находим произведение нечетных

if m[i] mod 2 = 1 then p:=p * m[i];

m[k]:=p;

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

write (' полученное произведение = ', p); / / выводим ответ

end.