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

Question

Информатика

Оляня

14 марта, 16:28

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

+3

Ответы (1)

Знаете ответ?

Жанна · Answer 1

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;