Предмет: Информатика,
автор: bonnuy
С клавиатуры вводится l целых чисел. Подсчитать кол-во нечетных чисел и произведение положительных
Ответы
Автор ответа:
0
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 2<>0 then kn:=kn+1;
if a>0 then pp:=pp*a;
end;
writeln('кол-во неч. чисел: ',kn);
writeln('произв. пол чисел: ',pp);
end.
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 2<>0 then kn:=kn+1;
if a>0 then pp:=pp*a;
end;
writeln('кол-во неч. чисел: ',kn);
writeln('произв. пол чисел: ',pp);
end.
Похожие вопросы
Предмет: Немецкий язык,
автор: annadarbinyan1
Предмет: Литература,
автор: samojlovakata915
Предмет: Английский язык,
автор: arinnn5
Предмет: Алгебра,
автор: 89028182244lol