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

[Maratik]

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

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

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

[Maratik]

Сам в шоке, чес слово. Получается вот так?

Uses Crt;
var
D: array[1..100,1..100] of integer;
a,n,m,i,j,k: integer;
Begin
Clrscr;
Randomize;
k:=0;
Read(n,m,a);
For i:=1 to n do 
For j:=1 to m do
D[i,j]:=random(20);
For i:=1 to n do begin
For j:=1 to m do
Write(D[i,j],' ');
writeln;
end;
For i:=1 to n do
For j:=1 to m do
if b[i,j] mod a <> 0 then Inc(k)
Writeln(k);
Readln;
Readln;
end.

Сообщение отредактировано: Lapp - 15.09.2011 1:03