Задать массив из 8 элементов целого типа. Заполнить массив случайными значениями из интервала (-10; 10) и вывести массив. Найти сумму и количество четных, а также произведение и количество нечетных значений элементов массива.

program sum_prod;

var s, p: integer;

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

begin

randomize;

s: = 0;

p: = 1;

for i: integer:=1 to 8 do

begin

a[i]: = random (21) - 10;

write (a[i] : 4);

if i mod 2 = 0 then s: = s + a[i];

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

end;

writeln ();

writeln ('Сумма четных элементов: ', s);

writeln ('Произведение нечетных элементов: ', p)

end.