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

@Люба_ня · Регистрация: 09.01.2011

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

Ввести одномерный массив Х(N).
Все элементы массива неравные нулю переписать, сохраняя их порядок,в начало массива, нулевые поместить в конец массива (новый массив не создавать). Выдать на печать исходный и преобразованный массив Х(N).

@Puporev · 17.01.2011, 15:38

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

Pascal

uses crt;
const n=15;
var x:array[1..n]of integer;
    i,k,j:integer;
begin
clrscr;
writeln('Введите ',n,' целых положительных, отрицательных и нулевых чисел:');
for i:=1 to n do
 begin
  write('x[',i,']=');
  readln(x[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(x[i],' ');
writeln;
writeln;
k:=0;
for i:=n downto 1 do{идем с конца}
if x[i]=0 then{если ноль}
  begin
    k:=k+1;{считаем}
    for j:=i to n-k do
    x[j]:=x[j+1];{сдвигаем на него неизмененную часть из конца массива}
    x[n-k+1]:=0;{на освободившееся место пишем ноль}
  end;
writeln('Перестановка:');
for i:=1 to n do
write(x[i],' ');
readln
end.

@Люба_ня 0 / 0 / 0 Регистрация: 09.01.2011 Сообщений: 6
		1
	Все неравные 0 элементы массива переписать, сохраняя их порядок, в начало массива 17.01.2011, 15:27. Показов 2004. Ответов 1 Метки нет (Все метки) Ввести одномерный массив Х(N). Все элементы массива неравные нулю переписать, сохраняя их порядок,в начало массива, нулевые поместить в конец массива (новый массив не создавать). Выдать на печать исходный и преобразованный массив Х(N). 0

Опции темы

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

Решение