Блок-схема

program prmatrix;
uses crt;
const nmax=50;
type Tmatr=array[1..nmax, 1..nmax] of integer;
function KolStr(x, y:integer; z:Tmatr):byte;
var i, j, k, t:byte;
begin
  k:=0;
  for i:=1 to x do
    begin
      t:=0;
    for j:=1 to y do
    if z[i, j]=0 then
       begin
           t:=1;
           break;
         end;
      if t=1 then k:=k+1;
    end;
   KolStr:=k;
end;
procedure NomStr(x, y:integer; z:Tmatr; var imax:byte);
var i, j, max, A:integer;
begin
max:=-maxint;
imax:=2;
for i:=2 to x do
   begin
     A:=0;
     for j:=1 to y do
     A:=A+abs(z[1,j])*abs(z[i,j]);
     if A>max then
        begin
          max:=A;
          imax:=i;
        end;
   end;
end;
 
var a:Tmatr;
i, j, n, m, s:byte;
begin
clrscr;
randomize;
repeat
write('Kolichestvo strok n=');
readln(n);
write('Kolichestvo stolbcov m=');
readln(m);
until (n>0)and(m>0)and(n<=nmax)and(m<=nmax);
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
       begin
         a[i,j]:=random(10);
         write(a[i,j]:4);
       end;
    writeln;
  end;
writeln('Kolicestvo strok s nulevymi elementami = ',KolStr(n,m,a));
NomStr(n, m, a, s);
writeln('Naibolee udalennaja stroka = ',s);
readln
end.