Обработка двумерных массивов

[Alexxxxxx]

Дана матрица размера 5*10. Найти минимальный среди элементов тех строк , которые упорядочены либо по возрастанию , либо по убыванию . Если такие строки отсутствуют , то вывести 0 . Помогите составить программу ))) Плз ))) В паскале !!!

[Stilet]

Предлагаю такое:

MODULE moda;
IMPORT StdLog,In;
VAR  a:ARRAY(4) OF ARRAY(4) OF INTEGER;

PROCEDURE do*;
VAR n,k,e,b,l,r:INTEGER;
BEGIN
 In.Open;
 In.Int(n);
 StdLog.Clear;
 k:=0;e:=0;r:=0;b:=0;l:=0;
 WHILE In.Done DO 
  a[e,k]:=n;
  IF (k>0)&(a[e,k]<a[e,k-1]) THEN INC(b);END;
  IF (k>0)&(a[e,k]>a[e,k-1]) THEN INC(l);END;
  INC(k);
  IF k=LEN(a) THEN k:=0;INC(e); 
    StdLog.Int(b);StdLog.Tab;
    StdLog.Int(l);StdLog.Ln;
    IF (b=0)OR(l=0) THEN 
     INC(r);
    END;
    
    b:=0;l:=0;  
  END;
  
  In.Int(n);
 END;StdLog.Ln;
 StdLog.Int(r);
END do;

END moda.

[Alexxxxxx]

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

Предлагаю такое:

MODULE moda;
IMPORT StdLog,In;
VAR  a:ARRAY(4) OF ARRAY(4) OF INTEGER;

PROCEDURE do*;
VAR n,k,e,b,l,r:INTEGER;
BEGIN
 In.Open;
 In.Int(n);
 StdLog.Clear;
 k:=0;e:=0;r:=0;b:=0;l:=0;
 WHILE In.Done DO 
  a[e,k]:=n;
  IF (k>0)&(a[e,k]<a[e,k-1]) THEN INC(b);END;
  IF (k>0)&(a[e,k]>a[e,k-1]) THEN INC(l);END;
  INC(k);
  IF k=LEN(a) THEN k:=0;INC(e); 
    StdLog.Int(b);StdLog.Tab;
    StdLog.Int(l);StdLog.Ln;
    IF (b=0)OR(l=0) THEN 
     INC(r);
    END;
    
    b:=0;l:=0;  
  END;
  
  In.Int(n);
 END;StdLog.Ln;
 StdLog.Int(r);
END do;

END moda.

А это на каком языке написано ??? Просто мне нужно на Паскале )))

[Stilet]

Это Оберон.
Раньше надо было указывать язык.

[Alexxxxxx]

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

Это Оберон.
Раньше надо было указывать язык.

Извините , я просто забыл ))))

[Sna1L]

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

Это Оберон.
Раньше надо было указывать язык.

оффтоп.ух-ты, а выглядит симпатично