Двухмерные массивы

[Софья13]

Двухмерные массивы

Помогите пожалуйста написать программу в Паскале
Двумерные массивы
1) Дана целочисленная прямоугольная матрица. Определить сумму элементов тех строк, которые содержат хотя бы один отрицательный элемент.
2) Определите количество строк в матрице, в которых числа принадлежат отрезку [a,b].

 

[Vladimir_S]

Да пожалуйста, делов-то куча...

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.