Помогите решить в паскале авс.6. Дан двумерный массив размерности nxm. Посчитать...

Question

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

Answer 1

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;
Вот так как-то.