Дан одномерный массив целых чисел.. Колличество чисел и их значения вводятся с клавиатуры . Индексация элементов массива начинается с единицы. Определить произведение элементов массива, которые являются отрицательными четными ч...
Дан одномерный массив целых чисел.. Колличество чисел и их значения вводятся с клавиатуры . Индексация элементов массива начинается с единицы. Определить произведение элементов массива, которые являются отрицательными четными числами. Если аких чисел нет, то вывести на экран нуль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы