Найти номера строк матрицы, все элементы которых - нули

var
a:array [1..4] of integer;
n,i:integer;
begin
writeln('Введите числа:');
for i:=1 to 4 do
read (a[i]);
for i:=4 downto 1 do
if a[i]<>a[i-1] then
begin
n:=i-1;
writeln (n);
break;
end;
end.

uses crt;
var
a:array [1..100] of integer;
min,n,i,s,nmin:integer;
sr:real;
begin
clrscr;
write ('n=');
readln (n);
writeln ('Введите массив:');
for i:=1 to n do
read (a[i]);
min:=a[1];
for i:=1 to n do
if a[i]<min then
begin
min:=a[i];
nmin:=i;
break;
end;
for i:=nmin to n do
if a[i]<=min then
begin
min:=a[i];
nmin:=i;
end;
for i:=1 to n do
s:=s+a[i];
sr:=s/n;
a[nmin]:=trunc(sr);
writeln ('Полученный массив:');
for i:=1 to n do
write (a[i],' ');
end.

{ïðèëîæåíèå 9
äàíà öåëî÷èñëåííàÿ êâàäðàòíàÿ ìàòðèöà ðàçìåðîì
n*n íàéòè íîìåðà ñòðîê, âñå ýëåìåíòû êîòîðûå - íóëè.}
 
 
   uses crt;
   var
   a:array [1..20,1..20] of real;
   i,j,k,n:integer;
   begin
   clrscr;
    write('Ââåäèòå ðàçìåð ìàòðèöû MõN: '); read(n);
    for i:=1 to n do
    for j:=1 to n do
    begin
    write('A[',i,',',j,']= ');readln(a[i,j]);
    end;
    WRITELN; WRITELN;
 writeln('Èñõîäíàÿ ìàòðèöà ',n,'x',n,': ');
    for i:=1 to n do
    begin
    FOR j:=1 to n do
    WRITE(a[i,j]:2:0,' ');
    WRITELN;
    End;
    k:=0;
    for i:=1 to n do
    begin
    FOR j:=1 to n do begin
    if a[i,j]=0 then k:=k+1; end;
    if k=n then begin writeln(i,' stroka sostoit iz nuley! ');
    end;
    k:=0;
    end;
    end.