Да пожалуйста, делов-то куча...
Код:
Const
M=8;
N=10;
Var
Ar:Array[1..M,1..N] of Integer;
i,j,Num:Byte;
Sum,a,b:Integer;
bu:boolean;
Begin
Randomize;
Writeln('Matrix:');
Writeln;
for i:=1 to M do
begin
for j:=1 to N do
begin
Ar[i,j]:=-1+Random(10);
Write(Ar[i,j]:4);
end;
writeln;
end;
Writeln;
for i:=1 to M do
begin
bu:=false;
Sum:=0;
for j:=1 to N do
begin
Inc(Sum,Ar[i,j]);
if Ar[i,j]<0 then bu:=true;
end;
if bu then Writeln('Sum[',i,'] = ',Sum);
end;
Writeln;
Write('a = '); Readln(a);
Write('b = '); Readln(b);
Num:=0;
for i:=1 to M do
begin
bu:=true;
for j:=1 to N do
if (Ar[i,j]<a) or (Ar[i,j]>b) then bu:=false;
if bu then Inc(Num);
end;
Writeln('Num = ',Num);
Readln;
End.