Реферат: Процедуры и функции

read(Mx);

writeln;

for i:=1 to Nx do

for j:=1 to Mx do begin

write(P,'[',i,',',j,']=');

read(x[i,j]);

end;

end;

Procedure Sozd(var x:matr; Nx,Mx:integer);

begin

Nc:=0;

k:=1;

i:=1;

repeat

j:=1;

repeat

if (x[i,j]<>0) then begin

c[k]:=x[i,j];

Nc:=Nc+1;

k:=k+1;

end;

j:=j+1;

until j>Mx;

i:=i+1;

until i>Nx;

end;

Function Modul(var x:vector; Nx:integer):integer;

begin

M:=0;