Ввести массив 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]gt;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.