Дан одномерный массив целых чисел ... Колличество чисел и их значения вводятся с клавиатуры. Индексация элементов массива начинается с единицы. Определить произведение элементов массива, которые являются отрицательными четными числами. Если аких чисел нет, то вывести на экран нуль

Question

Информатика

Плакида

22 августа, 16:36

Дан одномерный массив целых чисел ... Колличество чисел и их значения вводятся с клавиатуры. Индексация элементов массива начинается с единицы. Определить произведение элементов массива, которые являются отрицательными четными числами. Если аких чисел нет, то вывести на экран нуль

+5

Ответы (1)

Знаете ответ?

Михайлина · Answer 1

var a:array[1 ... 100]of integer;

i, s, n:integer;

c:boolean;

begin

readln (n) ;

for i:=1 to n do readln (a[i]) ;

s:=1;

for i:=1 to n do

if (a[i]<0) and (a[i] mod 2=0) then begin s:=s*a[i]; c:=true; end;

if c then writeln (s) else writeln (0) ;

end.