ВУЗ:
Составители:
Рубрика:
39
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln
end
end;
begin
writeln('Введите размеры массива ');
read(n,m);
writeln('Введите элементы ');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
writeln('Введите элемент ');
read(x);
Poisk(n,m,a,x,i,j);
while i<>n+1 do
begin
Delet_El(i,j,n,m,a);
Poisk(n,m,a,x,i,j)
end;
if (n=0) and (m=0) then
writeln('массив пуст')
else
Output(n,m,a)
end.
