Сформировать массив, состоящий из 7 чисел. вывести на экран произведение всех чисел.

ДанилкаМаксимка ДанилкаМаксимка    1   29.08.2019 18:50    0

Ответы
nadya8903 nadya8903  09.09.2020 12:47
Const
   N = 7;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
For i:= 1 to N do
    Begin
    Read(A[i]);
    P:=P*A[i]
    End;
WriteLn('P = ',P)
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика