Двухмерные Массивы

[Izekil]

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

 

[sinkopa]

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

1. На каком языке задача? Паскаль или Delphi?
2. Вы не указали каким способом матрица должна заполняться элементами.
Общий принцип следующий:

program CalcChars;

const
N = 10;
var
matrix: array[1..N,1..N] of Real;
I,J,k: Integer;
begin

for I := 1 to N do
begin
for J := 1 to N do
begin
// matrix[I,J] := ... // как нибудь заполняем матрицу данными
end;
end;

for I := 1 to N do
begin
// сравниваем (построчно) J-тый элемент с предыдущим (J-1)
k := 0;
for J := 2 to N do
if (matrix[I,J] >= matrix[I,J-1]) then
Inc(k);

if (k = N) then // Если k = N, значит все элементы в строке упорядоченны по возрастанию.
begin			// т.е. кажды J-тый элемент больше (или равен) предыдущему

// выводим строчку (через запятую)
Write(matrix[I,1]);
for J := 2 to N do
begin
Write(',', matrix[I,J]);
end;
Writeln;
end;
end;

end.