Контрольная работа: Язык программирования Turbo Pascal

for j:=1 to k2-1 do

if c[i,j]=0 then k:=k+1;

null:=k;

end;

procedure obrab;

var x,y,i,j:integer;

begin

x:=0; y:=0;

for i:=1 to k1 do

begin

if i<>nomi('i',b) then x:=x+1;

y:=0;

for j:=1 to k2 do

if (j<>nomi('j',b)) And (i<>nomi('i',b)) then

begin

y:=y+1;

c[x,y]:=b[i,j];

end;

end;

end;

function nomi;

var min,a,i,j:integer;

begin

min:=maxint;

for i:=1 to k1 do

for j:=1 to k2 do

begin

if b[i,j]<min then begin

min:=b[i,j];