Предмет: Информатика,
автор: Diana1107
Дан одномерный массив целых чисел.. Колличество чисел и их значения вводятся с клавиатуры . Индексация элементов массива начинается с единицы. Определить произведение элементов массива, которые являются отрицательными четными числами. Если аких чисел нет, то вывести на экран нуль
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Алгебра,
автор: kseniaserstobitova20
Предмет: Математика,
автор: zzaur028
Предмет: Алгебра,
автор: hitman13rus
Предмет: Алгебра,
автор: ФлопИК