Подсчитать количество отрицательных частей, в каждой строке многомерного массива (-35;60)

Подсчитать количество отрицательных частей, в каждой строке многомерного массива (-35;60)

Задать свой вопрос
Анжелика Ковенкова
Диапозон
Лариса Антосюк
Двумерный
Вячеслав Шамберев
Неправильно переписал
1 ответ
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Начальный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-35,60);
  a.Println(4); Writeln(4*a.ColCount*'-');
  a.Rows.Select(row-gt;row.Where(t-gt;tlt;0).Count).Println
end.

Пример
Количество строк и столбцов в массиве: 5 8
*** Начальный массив [5,8] ***
 -21  50  17 -12 -30  10  -9  10
  39   1   0  41 -29  26  28  16
  50  52  13  36  43  -6  37   5
  34  -3  27  13  29 -30  49  36
 -17 -12  39  52 -15  -8  27  -9
--------------------------------
4 1 1 2 5
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт