Дано 7 чисел. найти произведение чисел больших 5.

Nastyusha222 Nastyusha222    2   24.06.2019 07:30    1

Ответы
antongrom68 antongrom68  19.07.2020 21:29
Var
mas: array [1..7] of integer;
s,i: integer;
begin
s := 1;
for i := 1 to 7 do if mas[i]>5 then s := s * mas[i];
end;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика