Дана последовательность целых чисел 4;-1;5;6;-7;9;-6. Нужно посчитать кол-во четных чисел и найти произведение отрицательных чисел

2

Ответы и объяснения

2014-01-21T15:06:53+04:00
2014-01-21T17:02:39+04:00
Uses crt;
var i,m,n,p,k:integer;
begin
clrscr;
k:=0; p:=1;
write('Zadaite razmer posledovatelnosti: ');readln(n);
for i:=1 to n do
begin
write('Vvedite ',i,' chislo: ');readln(m);
if (m mod 2=0) thenk:=k+1;
begin
if m<0 then
p:=p*m;
end;
end;
writeln('Kol-vo chetnih chisel= ',k);
writeln('Proizvedenie otricatelnih= ',p);
readkey;
end.