Ліцензія на комп'ютерні програми, що передбачас не тільки безкоштовне користування програмою, але і право на ї модифікацію A) Комерційна Б) 3 відкритим кодом Вільного Пробна використання​

I,j,k:integer;
begin
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(21)-10;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]mod 2<>0 then k:=k+1;
  writeln('Количество нечетных  ',k);  
end.

Тестовое решение:
  10  -1  -1   3   5  -3  -6  -1   2   8
  -5  -5  -3  -1   3  -8  -1  -1  -6  -2
   2  -3   5   0  -1  -4   0   3   7  -8
  -6   5   6   3  -8  -6  -4  10  -3   0
  -5  -4   2  -6 -10  -2  -1   3   5  -7
   2 -10   2  10  -8   2   4   9  -6  -1
   7   1   3  -1   3   0   0   4  -3  -1
   7  -1  -8   4  -8  -5   6   1   0  -9
   7   8   9   3   0  -6  -8   6   0   0
   0  -3   6   8   4   4   4  -8   1   0
Количество нечетных  45

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var m,n:integer;
  Write('Ввведите число строк и столбцов: ');
  Read(m,n);
  var a:=MatrixRandom(m,n,-99,99);
  var Vrow:=ArrFill(m,0);
  var Vcol:=ArrFill(n,0.0);
  for var i:=0 to m-1 do begin
    var max:=-100;
    for var j:=0 to n-1 do begin
      Write(a[i,j]:4);
      if a[i,j]>max then max:=a[i,j]
      end;
    Writeln;
    Vrow[i]:=Max
    end;
  Writeln('Вектор из наибольших значений строк');
  Vrow.Println;
  for var j:=0 to n-1 do begin
    var s:=a[0,j];
    for var i:=1 to m-1 do s+=a[i,j];
    Vcol[j]:=s/m
    end;
  Writeln('Вектор из средних арифметических по столбцам');
  Vcol.Println
end.

Тестовое решение:
Ввведите число строк и столбцов: 5 8
 -82  67 -78  27  69 -80  85  34
  70 -82 -89 -30 -57  31  14  33
  -4  -1 -93 -21  81 -66  48  31
  58  18 -40 -63 -68  40  46 -44
  85  46  31 -61   1  43   2 -94
Вектор из наибольших значений строк
85 70 81 58 85
Вектор из средних арифметических по столбцам
25.4 9.6 -53.8 -29.6 5.2 -6.4 39 -8