задача на двумерный массив

[ArchiS]

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

спасиб зарание.

[Hacker19_90]

если так

for i := 1 to m do
begin
    flag := true;
    for j := 1 to (n-1) do
        if m[i,j] < m[i,j+1] then
            flag := flase;
    if flag = true then writeln ('В ' , i, '-ой строке убывающая последовательность!');
end;

[ArchiS]

можно полностью, я пока не умею заполнять масив(( пожалуйста

[Hacker19_90]

Сообщение от ArchiS

можно полностью

Можно

program forum;
uses 
    crt;
const
    m = 3;
    n = 4;
var
    m: array[1..m,1..n] of real;
    i, j: integer;
    flag: boolean;
begin
    clrscr;
    writeln ('Введите массив');
    for i := 1 to m do
        for j := 1 to n do
            Read(m[i,j]);
     readln;
     for i := 1 to m do
     begin
         flag := true;
         for j := 1 to (n-1) do
             if m[i,j] < m[i,j+1] then
                 flag := flase;
         if flag = true then writeln ('В ' , i, '-ой строке убывающая последовательность!');
     end;
    readkey;
end.

[ArchiS]

спасибо большое

седня сдал - тут немног подправили и сказали что еще доделать ... если можите - помогите)

program forum;
uses 
    crt;
const
    m1 = 20;
    n1 = 20;
var
    a: array[1..m1,1..n1] of real;
    i, j,n,m: integer;
    flag: boolean;
begin
    clrscr;
    writeln(‘Введите количество строк’);	
    readln(m);

    writeln(‘Введите количество столбцов’);	
    readln(n);

    writeln ('Введите массив');
    for i := 1 to m do
        for j := 1 to n do
            Read(m[i,j]);
     readln;

     for i := 1 to m do
     begin
         flag := true;
         for j := 1 to (n-1) do
             if m[i,j] < m[i,j+1] then
                 flag := flase;
         if flag = true then writeln ('В ' , i, '-ой строке убывающая последовательность!');
     end;
    readkey;
end.

1)Добавить ввод n и m
2)Матрицу целочисленной сделать
3)И еще тут не предусмотрено сообщение на случай, если ни одна из строк не состовляет убывающей последовательности

[ArchiS]

помогите кто нить пожалуйста

[Базиля]

Ты программу отлаживал хоть? А то ошибок много
Держи все что тебе требуется, ввод у тебя уже присутствовал:

program forum;
uses
    crt;
const
    m1 = 20;
    n1 = 20;
var
    a: array[1..m1,1..n1] of integer;
    i, j,n,m,h: integer;
    flag: boolean;
begin
    clrscr;
    writeln('Введите количество строк');
    readln(m);

    writeln('Введите количество столбцов');
    readln(n);

    writeln ('Введите массив');
    h:=0;
    for i := 1 to m do
        for j := 1 to n do
            Read(a[i,j]);
     readln;

     for i := 1 to m do
     begin
         flag := true;
         for j := 1 to (n-1) do
             if a[i,j] < a[i,j+1] then
                 flag := false;
         if flag then  begin writeln ('В ' , i, '-ой строке убывающая последовательность!'); inc(h); end;

     end;
    if h=0 then writeln('ни одна из строк не составляет убывающей последовательности');
    readkey;
end.

[ArchiS]

спасиб))))