Помогите решить лёгенькую задачу по паскалю Опции

[Maratik]

Доброго времени суток всем! Народ помогите пожалуйста решить легенькую задачку по паскалю. Решил все остольные задачки, а эту не могу((. Вы моя последняя надежда, иначе меня отчислят с универа((.

Дан двумерный массив размерности NxM. Определить количество элементов, значения которых не кратны заданному числу А.

Сообщение отредактировано: Maratik - 13.09.2011 18:06

[Lapp]

Дан двумерный массив размерности NxM. Определить количество элементов, значения которых не кратны заданному числу А.

не пойму, что ты в ней нашел такого трудного, что все решил, а ее - нет..

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