ВУЗ:
Составители:
Рубрика:
38
procedure Poisk(n,m:integer;const a:matr;
x: T_el; var i,j:integer);
begin
i := 1; j := 1;
while (i <= n) and (x <> a[i,j]) do
begin
if j <= m then j := j+1;
if j > m then
begin i:= i+1; j :=1 end
end
end;
procedure Delet_El(ki,kj:integer;
var n,m:integer; var a:matr);
begin
for i:=1 to n do
for j:=kj to m-1 do
a[i,j]:=a[i,j+1];
m:=m-1;
for i:=ki to n-1 do
for j:=1 to m do
a[i,j]:=a[i+1,j];
n:=n-1
end;
procedure Output(n,m:integer; const a:matr);
var i,j:integer;
