Массив А (размер NxM) заполняется случайными числами от -50 до 50. сформировать новый...

Question

Массив А (размер NxM) заполняется случайными числами от -50 до 50.
сформировать новый массив b состоящий из положительных элементов массива а

Comments

Я просто не ответил на глупый вопрос

---

Строки и столбцы вводятся от клавы

---

Нужно сначало ввывести числа от -50 до 50

Answer 1

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Write('Количество строк и столбцов в массиве: ');
  var (n,m):=ReadInteger2;
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.Rows.SelectMany(x->x).Where(x->x>0).ToArray;
  Write('Массив b: '); b.Println
end.

Пример
Количество строк и столбцов в массиве: 5 8
*** Исходный массив [5,8] ***
   1 -36 -40  31 -12  18   9 -19
 -18 -32 -30  10   9 -19 -13 -11
  49 -20  -9  40 -32  37   4  38
  -1 -48 -43  -5  25  16  20  22
  25 -39   1  -4 -26 -18  44 -49
--------------------------------
Массив b: 1 31 18 9 10 9 49 40 37 4 38 25 16 20 22 25 1 44