Двумерный массив 7*8 заполнен случайными целыми числами. Найти количество и творенье

Двумерный массив 7*8 заполнен случайными целыми числами. Найти количество и произведение ненулевых частей. Паскаль

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

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

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

begin

 Writeln('*** Начальный массив ***');

 var a := MatrRandom(7, 8, -99, 99);

 a.Println(4); Writeln(4 * a.ColCount * '-');

 var s := a.ElementsByRow.Where(t -gt; t lt;gt; 0);

 Writeln('N = ', s.Count, ', П = ',

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

end.

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


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

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

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

Войти на сайт