Преоброзить масив таким образом,что бы елементы,равные нулю,размещались послех всех других

Question

Преоброзить масив таким образом,что бы елементы,равные нулю,размещались послех всех других

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

Pascal const n = 5; var a : array [1..n] of integer; i,p : integer; begin for i := n downto 1 do begin if a[i] = 0 then begin a[i] := a[n-p]; a[n-p] := 0; p := p +1; end; end;