Dim a(10, 10) As Double
Dim i As Integer, j As Integer
'Работа с матрицей
n = 10
sub primer()
For i = 1 To n
For j = 1 To n
a(i,j)=(-1)^i*(2+j*fact(i,j))
...
end Sub

function fact(i as integer,j as integer) As integer

Как объявлять матрицу и как с ней работать

ответ: Delphi/Pascal

program Matrix24;

var

 a:array [1..10,1..10] of integer;

 Max,M, N, i, j:Integer;

 

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

 

 

for  i:=1 to M do

 begin

  writeln(i,': ');

  for j:=1 to N do

   begin

    Write(j,' : ');

    Read(a[i,j]);

   end;

 end;

 

for  j:=1 to N do

 begin

  writeln(j,': ');

  Max:=a[1,j];

  for i:=2 to M do

   begin

    if a[i,j]>Max then Max:=a[i,j];

   end;

  writeln('Масимальный элемент:',Max);

 end;

end

program Matrix24;

var

 a:array [1..10,1..10] of integer;

 Max,M, N, i, j:Integer;

 

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

 

 

for  i:=1 to M do

 begin

  writeln(i,': ');

  for j:=1 to N do

   begin

    Write(j,' : ');

    Read(a[i,j]);

   end;

 end;

 

for  j:=1 to N do

 begin

  writeln(j,': ');

  Max:=a[1,j];

  for i:=2 to M do

   begin

    if a[i,j]>Max then Max:=a[i,j];

   end;

  writeln('Масимальный элемент:',Max);

 end;

end.

1. Современное решение, когда можно решить "в одну строку"

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

begin
  Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
    .Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
    .Select(c->c.ToDigit).Sum)
end.

Пример
252 337 105
S=24

2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)

var
  m,i,j,s,d:integer;
begin
  s:=0;
  for i:=1 to 3 do begin
    Read(m);
    for j:=1 to 3 do begin
      d:=m mod 10;
      if d mod 2<>0 then s:=s+d;
      m:=m div 10
      end
    end;
  Writeln('S=',s)
end.