[Sir Cat]

Есть код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75

program lab9; {$APPTYPE CONSOLE} uses SysUtils, Windows; const N=6; var input, output: TextFile; C: array[1..N, 1..N] of integer; i, i2,n1,n2,k: integer; found: boolean; begin SetConsoleCP(1251); SetConsoleOutputCP(1251); if ParamCount < 2 then begin Writeln('Не заданы параметры программы'); Readln; exit; end; Assign(input, ParamStr(1)); Assign(output, ParamStr(2)); try reset(input); try try rewrite(output); try try Readln(input,n1,n2); for i:=1 to n1 do begin for i2:=1 to n2 do begin read(input, C[i, i2]); end; end; found:=false; i:=2; i2:=1; while ((not found) and (i2<=n2)) do begin while ((not found) and (i<=n1)) do begin if (C[i, i2] > C[i-1, i2]) then begin found:=true; k:=i2; end else inc(i); end; inc(i2); i:=2; end; writeln(output,'Исходная матрица (n1xn2) ',n1,'x',n2); for i:=1 to n1 do begin writeln(output); for i2:=1 to n2 do begin write(output,C[i,i2],' '); end; end; writeln(output); if (found) then writeln(output, 'Первый неупорядоченный столбец k= ', k) else writeln(output, 'Все столбцы упорядочены'); Except writeln('Ошибка при считывании или записи в файл') End; Finally closeFile(output) End; {4} Except writeln('Ошибка при создании выходного файла') End; Finally closeFile(input) End; {2} Except writeln('Ошибка при открытии файла с исходными данными') End; writeln('Press Enter...'); Readln; end

Проблема в том, что я не понимаю, почему он не работает должным образом. То есть суть задания: в матрице найти номер первой строки, элементы которой стоят не в порядке убывания. Прога просто выдает результат 1 почти во всех тестах. Кроме случая, когда все элементы упорядочены.

[lmikle]

так строка или столбец?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var   C: array[1..N, 1..N] of integer; // первый - строка, второй - столбец   i ,j : integer;   cmp : integer; ...   cmp := -1;   for i := 1 To N Do     for j := 2 To N Do       if C[i,j] > C[i,j-1] Then         Begin           cmp := i;           Break;         End; ...   if cmp = -1 Then WriteLn('There is no such stings in the matrix')   Else Wirteln(Format('The sting index is %d',[cmp]));