Дан массив состоящий из 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.