Все элементы последовательности, не равные нулю, перенести, сохраняя их порядок

@sand1man · Регистрация: 14.11.2013

Студворк — интернет-сервис помощи студентам

Пусть дана последовательность чисел. Все ее элементы не равные нулю перенесите сохраняя их порядок, а нулевые в конец.

10 чисел
random (4)-1

@versa4e · 20.11.2013, 10:48

Pascal

const
  n=10;
type
  Tarr=array[1..n] of integer;
var
  a:Tarr;
  i,k:integer;
begin
  randomize;
  writeln('Исходная последовательность:');
  for i:=1 to n do
    begin
      a[i]:=random(4)-1;
      write(a[i]:4);
    end;
  writeln;
  k:=0;
  for i:=1 to n do
    if a[i]=0 then
      inc(k)
    else
      a[i-k]:=a[i];
  for i:=n-k+1 to n do
    a[i]:=0;
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:4);
  writeln;
end.

@sand1man 0 / 0 / 0 Регистрация: 14.11.2013 Сообщений: 18
		1
	Все элементы последовательности, не равные нулю, перенести, сохраняя их порядок 19.11.2013, 23:52. Показов 2217. Ответов 1 Метки нет (Все метки) Пусть дана последовательность чисел. Все ее элементы не равные нулю перенесите сохраняя их порядок, а нулевые в конец. 10 чисел random (4)-1 0

Опции темы

Все элементы последовательности, не равные нулю, перенести, сохраняя их порядок

Решение