Найти максимальное по модулю элемент матрицы

[Aleksey_Popov93]

СРОЧНО НЕОБХОДИМО СДЕЛАТЬ ТАКУЮЖЕ ЗАДАЧУ! ЭТА НЕ РАБОТАЕТ! ИДЕТ ЗАЦИКЛИВАНИЕ! В ЧАСТНОСТИ ИЩЕТ ПРОБЛЕМУ НА y:=j

[ROMA2PVT]

СРОЧНО НЕОБХОДИМО СДЕЛАТЬ ТАКУЮЖЕ ЗАДАЧУ! ЭТА НЕ РАБОТАЕТ! ИДЕТ ЗАЦИКЛИВАНИЕ! В ЧАСТНОСТИ ИЩЕТ ПРОБЛЕМУ НА y:=j

А ты её тестил? Она чётко работает.

[Aleksey_Popov93]

да, переписал точно как есть... версия какая у тя паскаля?

[ROMA2PVT]

Что на ABC что в School Pak 1.3 чётко работает.

[Aleksey_Popov93]

ниче не понимаю, ведь списал точно все... а завтра последний день здачи отчета по практике

[mifomen]

PHP код:

program matr;
uses crt;
const n=6;
var a:array [1..n,1..n] of integer;
    max,i,j:integer;
begin clrscr;randomize;
    for i:=1 to n do begin
     for j:=1 to n do begin
    a[i,j]:=random(37)-11; write(a[i,j]:4); end; writeln; end;
     max:=abs(a[1,1]);
    for i:=1 to n do begin
     for j:=1 to n do
       if max<abs(a[i,j]) then max:=a[i,j];end;
 readkey
end.