Дан двумерный массив целых чисел. Сформировать одномерный массив, каждый элемент которого равен количеству нечетных отрицательных элементов соответствующей строки двумерного массива.
Answers & Comments
Эклео// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.Select(x->x.Where(y->(y<0) and y.IsOdd).Count); b.Println; end.
Answers & Comments
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Rows.Select(x->x.Where(y->(y<0) and y.IsOdd).Count);
b.Println;
end.
Пример
Количество строк в массиве: 10
Количество столбцов в массиве: 13
*** Исходный массив [10,13] ***
-7 -30 -31 26 -19 4 -26 -37 -17 2 -7 -20 20
-6 33 -24 -14 -26 38 -11 -34 -40 -22 31 7 35
-24 -9 -35 -7 -14 -3 25 38 -30 -50 42 26 -15
45 -17 6 -18 27 25 -21 -21 1 -39 36 -27 -49
32 -38 -9 -17 42 -11 -31 -4 -23 33 48 40 -34
47 6 32 -26 33 -15 10 40 43 -44 11 28 1
-45 -23 6 26 -20 -20 -30 -15 16 12 -3 38 -42
3 6 39 17 0 8 -7 11 29 23 -2 -23 -21
1 13 -39 39 -44 30 5 -9 -17 43 41 2 2
17 19 32 -20 45 -16 -13 24 32 -46 -49 -25 6
----------------------------------------------------
6 1 5 6 5 1 4 3 3 3