Дан одномерный массив целых чисел.. колличество чисел и их значения вводятся с клавиатуры . индексация элементов массива начинается с единицы. определить произведение элементов массива, которые являются отрицательными четными числами. если аких чисел нет, то вывести на экран нуль
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
