Составить программу как найти произведение элементов массива. массив состоит из 7 элементов

alexanrrr alexanrrr    2   29.05.2019 07:00    0

Ответы
pety1234 pety1234  01.10.2020 14:04
Var a:array [1..7] of integer; i,p:integer;
begin 
a:=1;
 for i:=1 to 7 do
begin
readln(a); p:=p*a;
end;
writeln('Произведение = ',p);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика