Дан двумерный массив размерностью n*m

[ValeriySergeevich]

Дан двумерный массив размерностью n*m заполненный целыми числами из файла. Сформировать одномерный массив, каждый элемент которого равен наибольшему по модолю элементу соответствующей строки.Сформировать одномерный массив, каждый элемент которого равен наибольшему по модолю элементу соответствующей строки.

[Stilet]

Так сойдет?:

MODULE m;
IMPORT StdLog;
CONST n=4;m=5;
VAR a:ARRAY (n) OF ARRAY (m) OF INTEGER;
 b:ARRAY(n) OF INTEGER;
PROCEDURE do*;
VAR i,j:INTEGER;
BEGIN StdLog.Clear;
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   a[i,j]:=i*j;StdLog.Int(a[i,j]);StdLog.Tab;
   IF b[i]<a[i,j] THEN b[i]:=a[i,j];END;
  END;StdLog.Ln;
 END;StdLog.Ln;
  FOR j:=0 TO LEN(b)-1 DO
   StdLog.Int(b[j]);StdLog.Tab;
  END;StdLog.Ln;
 
END do;
END m.

Результат:

0 0 0 0 0
0 1 2 3 4
0 2 4 6 8
0 3 6 9 12

0 4 8 12

[veniside]

это шо, кобол?

[Stilet]

veniside

Нет. Я Кобол не знаю
Зато задача то решена (клянусь своей треуголкой)

[unbanned]

Stilet
что это за язык такой чудный?))) я все смотрю, смотрю... и никак понять не могу
Oberon?