Несложная задачка...

[Med]

Хм... оказалась нетак то проста

Заменить нулями эл-ты матрицы, стоящие на пересечении строк и столбцов, в которых имеется хотя бы по одному нулю.

Помогите решить...

[Levsha100]

Надо найти столбцы и строки с нулями.И занести в массив...
Какая размерность матрицы ?

for i:=1 to m do
  for j:=1 to m do
  begin
     if A[i,j]=0 then stolby[i]:=true;
  end;
for i:=1 to m do
  for j:=1 to m do
  begin
     if A[j,i]=0 then stroki[i]:=true;
  end;

- запоминаем где есть нули.
потом

for i:=1 to length(stolby) do
 for j:=1 to length(stroki) do
   A[i,j]:=0;

Вроде так...

[Med]

Размерность матрицы задается пользователем.

[Med]

а stolby[i] и stroki[i] - это одномерные массивы?

[Levsha100]

Да.
Но я не уверен в правильности...

[IT-man]

Заменить нулями эл-ты матрицы, стоящие на пересечении строк и столбцов, в которых имеется хотя бы по одному нулю.

А разве нули там итак не стоят?

[Med]

Нет, не могут и нестоять...
Например:
1. Матрица:

1 2 3 4
5 6 7 0
9 0 11 12
13 14 15 16

вот: в 4 столбце и в 3 строке присутствуют по 1 нулю, следует:
12 меняем на 0

тоже самое делаем, токо уже берем что 0 стоит во 2 стобце и 2 строке и меняем 6 на 0

[Jean-Esther]

Мой вариант (на основе идеи Levsha100)

const m=4;
var a:array[1..m,1..m] of integer;
    v,h:array[1..m] of boolean;
    i,j:byte;
begin
for i:=1 to m do
    for j:=1 to m do
        read(a[i,j]);
for i:=1 to m do
    for j:=1 to m do
        if a[i,j]=0 then begin h[i]:=true; v[j]:=true end;
for i:=1 to m do
    for j:=1 to m do
        if (h[i] and v[j]) then a[i,j]:=0;
readln;
writeln('------');
for i:=1 to m do
    begin
    for j:=1 to m do
        write(a[i,j],' ');
    writeln;
    end;
readln;
end.