Недавнее содержимое от Serheo

Матрица и нахождение макс правого угла Приветствую, формучане! Помогите исправить задачу: program z; const n=3; var a:array [1..n,1..n] of real; i,j:integer; max:real; begin max:=-10000000; writeln ('Aaaaeoa iao?eoo '); for i:=1 to n do for j:=1 to n do begin read (a[i,j]); end; for i:=1 to n...

Дана квадратная матрица.Найти наибольшее из значений... Помогите пожалуйста решить.