Дан одномерный массив целых чисел.. Колличество чисел и их значения вводятся с клавиатуры . Индексация элементов массива начинае
тся с единицы. Определить произведение элементов массива, которые являются отрицательными четными числами. Если аких чисел нет, то вывести на экран нуль
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;
Var n,i,k:integer; begin write ('Введите целое число (n>=2): '); readln (n); k:=0; for i:=1 to n do if n mod i = 0 then k:=k+1; writeln('Количество делителей числа ',n,' равно: ',k) end.