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

@xayes · Регистрация: 01.01.2014

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

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

@Puporev · 11.01.2014, 16:23

Pascal

uses crt;
const n=80;
var a:array[1..n]of integer;
    i,k,j,x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10);
  write(a[i]:4);
 end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if a[i]<>0 then
 begin
  k:=k+1;
  x:=a[i];
  for j:=i downto k+1 do
  a[j]:=a[j-1];
  a[k]:=x;
 end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i]:4);
readln
end.

@xayes 0 / 0 / 3 Регистрация: 01.01.2014 Сообщений: 39
		1
	Все элементы массива, не равные нулю, переписать (сохраняя их порядок) в начало массива 11.01.2014, 15:11. Показов 1520. Ответов 1 Метки нет (Все метки) Задан одномерный массив. Все его элементы, не равные нулю, переписать (сохраняя их порядок) в начало массива, а нулевые элементы – в конец массива. Новый массив не заводить. 0

Опции темы

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

Решение