Лабы / Pascal.1.курс / part 1 / variant 13 / lab6

Program matrix;
Uses crt;
const
n=6;
Var
Matr: array [1..n,1..n] of integer;
a: array [1..n] of integer;
i,j,k,l,max:integer;

begin
Textcolor(lightgreen);
Textbackground(black);
clrscr;
randomize;
writeln;

for i:=1 to n do begin
for j:=1 to n do begin
matr[i,j]:=-5+random(10);
write(matr[i,j]:3);
if matr[i,j]<0 then a[i]:=a[i]+1;
end;
writeln; writeln;
end;

max:=-6;

for i:=1 to n do begin
if matr[i,i]<0 then begin
for j:=1 to n do begin
if matr[i,j]>max then begin
max:=matr[i,j];
k:=i;
l:=j;
end;
end;
end;
end;

writeln('Max: matr[',k,',',l,'] = ',max);

writeln;

writeln('Massiv');
for i:=1 to n do write(a[i],' ');
writeln;

writeln('Press ENTER');
readln;
end.