С клавиатуры ваодится m целых чисел .Подсчитать сколько из них отрицательные и все нечётные перемножить
С клавиатуры ваодится m целых чисел .Подсчитать сколько из них отрицательные и все нечётные перемножить
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var m,k,p,a,i: integer;
begin
readln(m);
k:=0;
p:=1;
for i:=1 to m do
begin
readln(a);
if a<0 then k:=k+1;
if a mod 2<>0 then p:=p*a;
end;
writeln(k);
writeln(p);
end.
Не нашли ответ?
Похожие вопросы