Дано двузначное число. найти число единиц в нем.

Var a:integer;
begin
readln(a);
Write (a div 10);
end.

Решение на паскаль.
начало решения задач одинаковое, а дальше см. внизу

program xxx;
var b: array [1..6, 1..6] of integer;
 i, j, s : integer;
begin
for i:= 1 to 6 do
for j:=1 to 6 do
 b[i,j]:= random(131)-65;
writeln ('исходная матрица В:');
for i:=1 to 6 do
  begin
   for j:=1 to 6 do
     write (b[i,j]:4);
   writeln
 end;

задание 1.
s:=0;
for i:= 1 to 6  do
  if b[i,3]>0 then s:=s+b[i,3];
writeln ('сумма положительных элементов 3-го столбца', s)
end.

задание 2.
i:=2;
while i<=6 do begin
  for j:= 1 to 6 do
    if b[i,j]<0 then b[i,j]:=0;
  i:=i+2
end;
writeln ('полученная матрица В:');
for i:=1 to 6 do
  begin
   for j:=1 to 6 do
     write (b[i,j]:4);
   writeln
 end
end.

Поскольку к элементам третьего столбца массива можно обращаться, как B[i,3], достаточно использовать цикл по строкам.
Для просмотра только четных строк массива достаточно начать со второй и менять номер строки с шагом 2.

const
  n = 6;
var
  b:array[1..n,1..n] of integer;
  i,j,s: integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      b[i,j]:=Random(131)-65;
      Write(b[i,j]:4)
    end;
    Writeln
  end;
  { задание 1 }
  s:=0;
  for i:=1 to n do
    if b[i,3]>0 then s:=s+b[i,3];
  Writeln('Значение найденной суммы: ',s);
  { задание 2 }
  i:=2;
  while i<=n do begin
    for j:=1 to n do
      if b[i,j]<0 then b[i,j]:=0;
    i:=i+2
  end;
  Writeln('Результирующий массив');
  for i:=1 to n do
  begin
    for j:=1 to n do Write(b[i,j]:4);
    Writeln
  end
end.

Тестовое решение:
Исходный массив
   1 -28 -22 -23 -15 -35
 -34 -44  57  43  33  62
  56   5  58 -32  -6 -52
  24 -15 -54 -45  41  32
  40  31 -31  28 -31  46
   7  31  56 -16 -62 -52
Значение найденной суммы: 171
Результирующий массив
   1 -28 -22 -23 -15 -35
   0   0  57  43  33  62
  56   5  58 -32  -6 -52
  24   0   0   0  41  32
  40  31 -31  28 -31  46
   7  31  56   0   0   0