Составить алгоритм и написать программу на паскале нахождения произведения только из n-вводимых с клавиатуры целых чисел

Kseniasis040906 Kseniasis040906    1   23.08.2019 17:40    0

Ответы
elinaaak elinaaak  05.10.2020 15:02
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика