в матрице Y(N,M) подсчитать число положительных и произведение отрицательных частей

В матрице Y(N,M) подсчитать число положительных и творенье отрицательных элементов матрицы

Задать свой вопрос
1 ответ

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (n, m) := ReadInteger2('Количество строк и столбцов в матрице:');

 Writeln('*** Начальная матрица ***');

 var y := MatrRandom(n, m, -99, 99);

 y.Println(4);

 Writeln(4 * y.ColCount * '-');

 Println('Количество подолжительных частей:',

     y.ElementsByRow.Where(t -gt; t gt; 0).Count);

 Println('Творенье отрицательных частей:',

     y.ElementsByRow.Where(t -gt; t lt; 0)

     .Aggregate(BigInteger(1), (p, q)-gt; p * q))

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт