Дано N целых чисел, сгенерированных случайным образов в диапазоне - 100, 100. Найти произведение всех чисел > 5.

Question

Информатика

Ипат

11 марта, 22:19

Дано N целых чисел, сгенерированных случайным образов в диапазоне - 100, 100. Найти произведение всех чисел > 5.

+5

Ответы (1)

Знаете ответ на вопрос?

Брина · Answer 1

Vari, m, s, k: integer;

beginfor i : = 1 to 10 dobeginm : = Random (-100, 100) ; writeln (m) ; end; writeln ('here') ; if m > 0 thenbegins : = 0; for k : = m to m dos:=s+m; writeln (s) ; endend.