Дан одномерный массив целых чисел.. Колличество чисел и их значения вводятся с клавиатуры . Индексация элементов массива начинается с единицы.Определить произведение элементов массива, которые являются отрицательными четными числами. Если аких чисел нет, то вывести на экран нуль
var a:array[1..100]of integer; i,s,n:integer; c:boolean; begin readln(n); for i:=1 to n do readln(a); s:=1; for i:=1 to n do if (a<0)and(a mod 2=0) then begin s:=s*a; c:=true; end; if c then writeln(s) else writeln(0); end.
