25. Дан двумерный массив целых чисел. Определить количество нечетных элементов массива.

const n = 5;  m = 5;var a:array[1..n,1..m] of integer;i,j,k:integer;begin//Для теста заполним массив n * m сл.числами и //определяем количество нечетных  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);      if a[i,j] mod 2<>0 then k:=k+1;    end;    writeln;  end;  writeln('Нечетных в массиве: ',k);