задача на массивы Опции

[-medievil-]

дан массив D(M,N).Обнулить строки и столбцы,в которых есть 0.Можно завести дополнительный одномерный массив. Массивы недавно начал изучать...ОЧЕНЬ хочется узнать как решается эта задача.

[Lapp]

Можно, например, завести дополнительный одномерный целый массив длины M+N.
Первую его часть (длинв М) использовать для отметки строк с нулями, а вторую (длины N) - для отметки столбцов.
Примерно так:

  for i:=1 to M+N do z[i]:=1;
  for j:=1 to N do for i:=1 to M do if D[i,j]=0 then begin
    z[i]:=0;
    z[j+M]:=0
  end;
  for i:=1 to M do if z[i]=0 then for j:=1 to N do D[i,j]:=0;
  for j:=1 to N do if z[M+j]=0 then for i:=1 to M do D[i,j]:=0;