Ле
Лена
В каждом столбце матрицы D[n,m] нулевые элементы переставить в начало столбца (Паскаль) Программа работает неправильно, подскажите как исправитьProgram matr;const N=10;const M=10;var D:array [1..N,1..M] of real;i,j,k:integer;l:real;beginfor i:=1 to n do begin for j:=1 to m do begin D[i,j]:=random(5); if d[i,j]=0 then for k:=i-1 downto 1 do begin l:=d[k+1,j]; d[k,j]:=d[k+1,j]; d[k,j]:=l; end;end;end; for i:=1 to n do begin for j:=1 to m do begin write(D[i,j]:5:2);end; writeln;end; readln;end.