Помогите с задачей на Двумерный массив!!!

[Knot{]

2мерный массив! Дана матрица n. Найти номер строк, элементы которых образуют монотонную(возраст или убыва) последовательность! Тока через 2мерный массив


Плиз полное решение

[Allen Iverson]

выкладываю решение вашей проблемы.....
program matrix;
uses crt;
var matr:array[1..100,1..100] of integer;
i,j,n:integer;
fb,fu:integer;
begin
clrscr;
write ('razmer matricy - ');
readln (n);
{dlya vvoda dannix}
for i:=1 to n do
begin
for j:=1 to n do
begin
write ('matr [',i,',',j,'] - ');
readln (matr[i,j]);
end;
end;
{raspechatka matricy}
for i:=1 to n do
begin
for j:=1 to n do
begin
write (matr[i,j],' ');
if j=n then writeln;
end;
end;
{dlya recheniya}
for i:=1 to n do
begin
fb:=0;
fu:=0;
for j:=1 to n do
begin
if matr[i,j]<matr[i,j+1] then fb:=fb+1;
if j<>n then
begin
if matr[i,j]>matr[i,j+1] then fu:=fu+1;
end;
end;
if fb=n-1 then
begin
writeln ('monotonnaya stroka - ',i);
end;
if fu=n-1 then
begin
writeln ('monotonnaya stroka - ',i);
end;
end;
readln;
end.

[Allen Iverson]

если не сложно подними мне репутацию пожалуйста...я не знаю как это делать но мне сказали что как то делают другие "форумцы"....плиз...

[Викдон]

пользуйся тегом CODE)))