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

Это вы сами написали или с сайта какого то?

Смешно, да. Конечно же сам))) Магистры, переписывающие ответы из Интернет - это надо было придумать такое! )))

Хаха!смешно!Не мог найти. Не заметил

Света9473, которая мальчик, Вы что хотите этим сказать?

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;  Writeln('П= ',a.Where(k->k>5).Aggregate(BigInteger(1),(p,q)->p*q))end.Примерn= 50-5 42 31 99 39 62 31 -41 -88 73 -60 95 69 -31 -12 39 16 31 -63 40 -52 -57 86 87 71 -82 -24 60 -11 -57 11 -26 -57 27 -82 3 9 -3 -83 -11 62 -56 95 -66 -49 -16 80 58 26 22П= 4764546458283894070551668787355317043200000