Решить в паскале авс.6. дан двумерный массив размерности nxm. посчитать количество нечетных элементов матрицы. полученный результат вывести на экран.

Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
   result:=0;
   for i:=1 to n do
     for j:=1 to m do
       begin
          if odd(ar[i,j]) then
            result:=result+1;
       end;
   writeln(result);
end;
Вот так как-то.