Информационными моделями являются: блок - схемы компьютер рисунки формулы графики файлы

Компьютер, рисунки, графики, вроде все.

Будет построчно. Если надо по столбцам, замените в программе ElementsByRow на ElementsByCol

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

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var b:=a.ElementsByRow.Where(t->t>0).ToArray;
  Write('B: '); b.Println
end.

Пример
Количество строк и столбцов в матрице: 4 5
*** Исходная матрица ***
 -14  42 -70  55 -25
  13  66 -57 -10   8
  53 -32 -23  22  -2
  45  23 -56  -3 -42

B: 42 55 13 66 8 53 22 45 23

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

begin
  var n:=ReadInteger('Количество строк (столбцов) в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=0;
  for var i:=1 to n-1 do
    for var j:=n-i to n-1 do
      if a[i,j].IsEven then k+=1;
  Writeln('Количество четных элементов ниже побочной диагонали: ',k)
end.

Пример
Количество строк (столбцов) в матрице: 7
*** Исходная матрица ***
  90  57  58  49  91 -83  61
 -57  70  52  90  53 -22  89
 -90 -23  39 -88  28  16 -34
 -65 -19 -92 -49  77  11  79
 -37 -85  -5   6 -41 -75 -90
   1  62  24  92 -37  88  21
 -65 -47  48 -39 -46   6  38

Количество четных элементов ниже побочной диагонали: 11