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

program pr5;
uses crt;
var a:array[1..20] of real;
i,n:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(100);
clrscr;
writeln('Исходный массив:');
for i:=1 to 20 do
write(a[i]:0:0,' ');
writeln;
writeln;
writeln('Преобразованный массив:');
for i:=20 downto 10 do begin
write(a[i]:0:0,' ');
write(a[i-9]:0:0,' ');
end;
writeln;
readln;
end.

uses
  Crt;
  
const
  N = 3;
  M = 3;
 
var
  a: array [1..N, 1..M] of integer;
  i,j: integer;
begin
  Randomize;
  ClrScr;
  WriteLn('Array:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j] := Random(8) - 4;
      Write(a[i, j]:3, ' ');
    end;
    WriteLn;
  end;
  WriteLn('Result:');
  for i := 1 to N do
  begin
    for j := 1 to M do
      if a[i, j] <> 0 then
        break;
    if a[i, j] = 0 then
      Write(i, ' ');
  end;
  ReadLn;
end.

for i:=20 downto 10 do begin
write(a[i]:0:0,' ');
write(a[i-9]:0:0,' ');
end;

uses
  Crt;
var
  a: array [1..30] of integer;
  i,min,tmp: integer;
begin
  Randomize;
  ClrScr;
  WriteLn('Array:');
  for i := 1 to 30 do
  begin
    a[i] := Random(8) - 4;
    Write(a[i], ' ');
  end;
  WriteLn(#10, '------');
  min := 1;
  for i := 1 to 15 do
  begin
    if (i > 1) and (a[i] * a[15 + i] < a[min] * a[15 + min]) then
      min := i;
    WriteLn('a[', i, '] * a[', 15 + i, '] = ', a[i] * a[15 + i]);
  end;
  WriteLn('------', #10, 'Min - a[', min, '] * a[', 15 + min, ']');
  ReadLn;
end.