строки в паскале

[ronny137]

народ помогите хоть что нить решить

1. Дан двумерный квадратный массив. Найти номера строк, все элементы которых равны нулю.
2. Дан двумерный квадратный массив. Найти номера строк, элементы в каждой из которых одинаковы между собой.
3. Определить минимальный элемент двумерного массива. Напечатать номер строки, содержащий максимальное число минимальных элементов, если такие имеются.
4. Дан двумерный массив. Найти строку с наибольшей суммой элементов и наименьшей. Вывести на экран найденные строки и суммы их элементов.

[Namolem]

стучи в асю 313два004

[Stilet]

Вот тебе решение первой части:

  const n=5;
  var a:array[1..n,1..n] of integer;
      b2,b:array[1..n] of boolean;
      q,w:integer;
begin              randomize;
 for q:=1 to n do begin b[q]:=true;b2[q]:=true;
  for w:=1 to n do begin
   a[q,w]:=random(2);write(a[q,w]:6);

   {Найти номера строк, все элементы которых равны нулю.}
   if b[q] and (a[q,w]<>0) then b[q]:=false;

   {Найти номера строк, элементы в каждой из которых одинаковы между собой.}
   if b2[q] and (a[q,w]<>a[q,1]) then b2[q]:=false;

  end; writeln;
 end;

  for q:=1 to n do begin
   if b[q] then write(q:3);
  end; writeln;

  for q:=1 to n do begin
   if b2[q] then write(q:3);
  end; writeln;

  { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

Твоя задача - поиском по форуму найти работы с массивами, и посмотрев примеры на нахождения экстремумов дописать.