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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.