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

На паскале
---
uses crt;
const n=3;
         m=3;
var a: array [1..n,1..m] of integer;
    x,y,k: integer;
begin
     k:=0;
     for x:=1 to n do begin
         for y:=1 to m do begin
             a[x,y]:=random(21)-10;
             if a[x,y] mod 2=1 then inc(k);
             write(a[x,y]:4);
         end;
         writeln;
     end; 
     writeln('Количество неотрицательных нечетных элементов: ',k);
end.

Бред.. Зачем тебе вещественные числа если ты их инициализируешь как целые? И кстати, понятие четность/нечетность определено лишь для целых чисел..

И еще.. Паскаль такая умница, что его mod работает не совсем как это происходит в математике (там остаток отрицательным быть не может), а в паскале может! Поэтому твою развилку можно сократить )