Матрица, строки матрицы убывающие? Опции

[Anastacia Adesso]

Хммм я кажется тут чтото не то делаю.
Вроде надо проверить, являются ли все числа в строках матрицы в убывающей последовательности.

Процедуры работают очень хорошо..А вот в самом теле какая то фигня. Выдаёт ошибку в цикле while  UZD3.PAS ( 1.24 килобайт ) Кол-во скачиваний: 528


Сообщение отредактировано: Anastacia Adesso - 12.10.2006 14:09

[klem4]

Я думаю, ошибку выдает из-за отсутствия скобочек при сравнении эл-тов массива.

Anastacia Adesso, + Ты обращаешься к эелементу матрица как к элнементу массива (a[i] вместо a[i, j]), да и циклы по i и j у тебя помоему перепутаны местами в проверке, надо идти по строками (внешний цикл)

[Anastacia Adesso]

 UZD3.PAS ( 1.48 килобайт ) Кол-во скачиваний: 516
Да да..Это я поняла что там двумерный масив..
Поставила 2 координаты, но сейчас всё ещё не компилирует никак..

[volvo]

сейчас всё ещё не компилирует никак..

Я бы тоже отказался ЭТО компилировать:

    procedure printmatrix(a :matrix; n,m: integer);
    var i,j: integer;
    begin for i:=1 to n do
      for j:=1 to m do begin { <--- Внимание !!! Цикл по J }
       write(a[i,j]:6);
       if j=m then begin writeln;
       for j:=1 to m do begin { <--- И вложенный в него - тоже по J ??? }
       end; writeln
      end end
    end;