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

const z = 8;

var

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

i, s, s2, n, n2: integer;

begin

s : = 0;

s2 : = 1;

for i : = 1 to z do begin

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

write (a[i], ' ') ;

if (a[i] mod 2 = 0) then begin {четные}

inc (n) ;

s : = s + a[i];

end else begin

inc (n2) ;

s2 : = s2 * a[i];

end;

end;

writeln;

writeln ('Кол-во четных чисел: ', n, ', их сумма: ', s) ;

writeln ('Кол-во нечетных чисел: ', n2, ', их произведение: ', s2) ;

end.