№7
const nx = 15;mx =15;
var S:Array[1..nx,1..mx] of integer; i,j,n,m:integer;sr:real;
begin 
write('введите кол-во строк');
Read(n);
write('введите кол-во строк');
Read(m);
for i:=1 to n do begin
for j:=1 to m do begin

S[i,j]:= Random(50);
write(S[i,j]:3);

end;
writeln;
end;
end.
№8
const nx = 15;mx =15;
var S:Array[1..nx,1..mx] of integer; i,j,n,m,sum,k:integer;sr:real;Summ:array[1..mx]of integer;
begin 
write('введите кол-во строк');
Read(n);
write('введите кол-во строк');
Read(m);
for i:=1 to n do begin
for j:=1 to m do begin
S[i,j]:= Random(10);
write(S[i,j]:3);
sum:= sum + S[i,j];
end;
Summ[i]:= sum;
sum:=0;
writeln;
end;
writeln;
for k:=1 to n  do
writeln(Summ[k]);
end.
№9
var S:Array[1..4,1..6] of integer; i,j,n,m,max,k:integer;
begin 
max:=-1;
for i:=1 to 4 do begin
for j:=1 to 6 do begin
S[i,j]:= Random(30);
write(S[i,j]:3);
if max < S[i,j]then begin 
max := S[i,j]; k:=i;
end;end;
writeln;
end;
writeln;
writeln(max,k:3);
end.