Информатика, опубликовано 2018-08-22 23:49:07 by Гость
С клавиатуры вводится l целых чисел. Подсчитать кол-во нечетных чисел и произведение положительных
Ответ оставил Гость
Program n1;
var i,a,kn,pp,n: integer;
begin
write(введите кол-во чисел: );
readln(n);
pp:=1;
kn:=0;
for i:=1 to n do
begin
write(введите ,i, число: );
readln(a);
if a mod 20 then kn:=kn+1;
if a>0 then pp:=pp*a;
end;
writeln(кол-во неч. чисел: ,kn);
writeln(произв. пол чисел: ,pp);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на