Дан массив состоящий из 6-ти элементов:

а) найти максимальный элемент массива

б) найти сумму четных элементов и произведение не четных элементов.

Var

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

i, p, s, max: integer;

begin

max : = a[i];

p:=1;

s:=0;

for i: = 1 to 6 do

if a[i] > max then

max : = a[i]; / / находим максимальный

if a[i] mod 2 = 0

then s: = s + a[i]//находим сумму четных

else p: = p*a[i]; //находим произведение нечетных

writeln (max) ; / / вывод максимального

writeln (s) ; / / вывод суммы четных

writeln (p) ; / / вывод произведения нечетных

end.