14.01.2020, 01:53
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
так строка или столбец?
Код:
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]));
|