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

fara30 fara30    3   28.06.2019 15:50    0

Ответы
krasotkak31 krasotkak31  22.07.2020 19:52
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;
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика