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

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

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

Пиши <cut>
Некит, читай Правила
Lapp

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

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

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

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 5:03

Почему массив называется D, а вычисления ты проводишь с b? Давай уже, выходи из шока - пора! И одной ";" не хватало.
Короче, вот так примерно:

var
  D: array[1..100,1..100] of integer;
  a,n,m,i,j,k: integer;
Begin
  Randomize;
  k:=0;
  ReadLn(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 d[i,j] mod a <> 0 then Inc(k);
  Writeln(k);
  Readln;
end.

Еще:
1. если будешь читать readln'ом, а не read'ом, то не понадобиться внизу писать много readln.
2. все же надо писать какое-то приглашение на ввод и пояснения к результату.
3. обрати внимание на форматирование кода.

Огромное спасибо тебе!!!!!!!!!! Не предстовляешь как выручил!!!!!

Сообщение отредактировано: Maratik - 15.09.2011 13:41