Напишите программу : дан массив f, c - целых 30 чисел . найдите произведение положительных и отрицательных чисел.

126

152

Посмотреть ответы 2

Ответы на вопрос:

anymay20041302

Информатика

4,8(97 оценок)

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию begin var a : = arrrandominteger(30, -100, 100); println(a); writeln('произведение положительных ', a.where(x -> x > 0).aggregate(1, (x, y)-> x * y)); writeln('произведение отрицательных ', a.where(x -> x < 0).aggregate(1, (x, y)-> x * y)); end.