Huswyn
5 год назад
составить алгоритм и написать программу на паскале нахождения произведения только положительных(!!!) из N-вводимых с клавиатуры целых чисел
ОТВЕТЫ
Lidiya
Oct 24, 2020
Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
557
Смежные вопросы:
