Назови и напиши носители информации

Question

Информатика: Назови и напиши носители информации

darabajkova4770 · Accepted Answer

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

begin
var m:=8; var n:=9;
Writeln('*** Исходная матрица D[',m,',',n,'] ***');
var d:=MatrRandom(m,n,-100,100);
d.Println(5); Writeln(5*n*'-');
Writeln('Столбцы, в которых отрицательных элементов больше положительных');
for var i:=0 to n-1 do
    if (d.Col(i).Where(x->x<0).Count)>(d.Col(i).Where(x->x>0).Count)
    then Print(i+1)
end.

Пример
*** Исходная матрица D[8,9] ***
   10 -41   26    3   98   64   -9 -11 -91
   -9 -43   44   -1   59 -74 -86 -61   -6
   39   72 -67   30 -65 -100 -51 -98 -29
   67 -43 -67   95   15 -30   11   14   51
-66 -64   -7 -81   15   56 -20   46 -58
   12   19 -33 -92 -58   69   23 -43 -35
   36   80 -76   25 -47   95   -7   24 -69
   77   -4   42 -26   88 -56 -25   81 -98

Столбцы, в которых отрицательных элементов больше положительных
2 3 7 9

MOGZ ответил