(Паскаль) матрицы

[V@liK]

Посчитать количество нечётных элементов матрицы А(40,40),лежащих в интервале [0;122]
как сделать этот интервал??

[danekne]

if (a[i]mod2!=0) and (a[i]=>0) and (a[i]<=122) then

[V@liK]

а[i]-error 26 (у меня двумерный массив)
а[i,j]-в ответе выдает либо 0 либо 1

[V@liK]

randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(9);
write(a[i,j]:2);
end;
writeln;
end;
k:=0;
if (a[i,j]mod 2=0) and (a[i,j]=>0) and (a[i,j]<=122) then k:=k+1;
writeln;
write('otvet->',k);
readln;
end.

[V@liK]

может где в коде ошибка?

[Niro]

В паскале "больше либо равно", это не =>, а >=. Это раз
А во-вторых вам ведь надо проверить все элементы массива на четность, значит строку

if (a[i,j]mod 2=0) and (a[i,j]=>0) and (a[i,j]<=122) then k:=k+1;

надо загнать в цикл

for i:=1 to n do
  for j:=1 to m do
    if (a[i,j] mod 2=0) and (a[i,j]>=0) and (a[i,j]<=122) then k:=k+1;

P.S. программный код на форуме надо оформлять тегом code

[V@liK]

все работает, спасибо большое