Дан одномерный массив целых чисел.. колличество чисел и их значения вводятся с клавиатуры . индексация элементов массива начинается с единицы. определить произведение элементов массива, которые являются отрицательными четными числами. если аких чисел нет, то вывести на экран нуль
koliakhotyn
2
31.03.2019 14:40
0
Другие вопросы по теме Информатика
Dav134
15.12.2020 12:52
agargo228
15.12.2020 12:53
дашикмашикпык
15.12.2020 12:54
trikozatatjana1
28.05.2019 00:40
kati456miks
28.05.2019 00:40
swetik101
28.05.2019 00:40
Raadzhab
28.05.2019 00:40
haha1
20.07.2019 23:00
pav9
20.07.2019 23:00
Популярные вопросы
- За 8 часов трактор вскопал 100% поля. Сколько часов понадобилось бы трактору...
3 - Арал қасіретін «Фишбоун» әдісімен жазындар. Бес сөйлемнің тұрлаулы, тұрлаусыз...
1 - Як суперечки між князями впливали на внутрішнє і зовнішнє становище Русі –...
1 - Анотація твору Федько Халамидник...
3 - От свеж….(ветра) -….(3) Разобрать по членам! Снежная пыль больно слепила глаза...
3 - Подготовить сообщения о русских географических открытиях XVI века...
3 - Дано: ТС = 2 000 + 15Q – 6Q2 + Q3, где Q – единицы произведенной продукции,...
2 - Я тому, кто правильно ответит на этот вопрос...
2 - ) сократите дроби 16/24 , 21/42 , 96/120....
2 - Прямые с и d перпендикулярны прямой f, прямая m пересекает прямую c. Пересекает...
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.