Program N_388;
uses crt;
const n=17;
var i,j,max: integer;
A:array[1..n, 1..n] of integer;
B:array[1..n] of integer;
begin
clrscr; Randomize;
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=random(20)-5; write(A[i,j]:3, ' '); end; writeln; end;
for i:=1 to n do begin
for j:=1 to n do
if A[i,j]<0 then B[i]:=A[i,i]; end;
max:=B[i];
for i:=1 to n do
if B[i]>max then max:=B[i];
writeln('max=', max);
readln; end.