Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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;