Технический форум - Двухмерные массивы

Технический форум (http://www.tehnari.ru/index.php)

- Помощь студентам (http://www.tehnari.ru/forumdisplay.php?f=41)

- - Двухмерные массивы (http://www.tehnari.ru/showthread.php?t=268869)

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

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

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

Код:

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.