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

[katia230990]

Помогите пожалуйста написать программу в Delphi 6, что-то у меня никак не получается Дана целочисленная квадратная матрица порядка n. Найти номера строк: а) все элементы которых - нули; б) все элементы которых чётны. Заранее большое спасибо

[Stepler]

все элементы которых - нули;

for i:=1 to n do
 begin
  n1:=0;
  for j:=1 to n do
   begin
   n1:=n1+a[i][j];
   if(n1<>0)then break;
   end;
 if(n1=0)then writeln(i,' stroka sostoit is nylej');
 end;

все элементы которых чётны

for i:=1 to n do
 begin
  for j:=1 to n do
  if((a[i][j] mod 2)<>0)then break;
 if(j=n)then writeln('V ',i,' stroke vse chetnue elementu');
 end;

[katia230990]

Спасибо огромное!!