Получить из массива новый в котором сначала идут положительные числа, затем нули и потом отрицательные

@povtiasd051 · Регистрация: 06.12.2010

Дан массив Х(N). Получить новый массив Y(N), такой, что в нем сначала идут положительные числа, затем нулевые, и затем отрицательные из X.

Данные	Результат
N=7 X=(-1, 2, 0, 4, -3, -2, 0)	Y=(2, 4, 0, 0, -1, -3, -2)

@povtiasd051 · 06.09.2014, 20:35 **[ТС]**

кто нибудь плиз

@Puporev · 06.09.2014, 21:31

Pascal

const n=7;
type mas=array[1..n]of integer;
const x:mas=(-1,2,0,4,-3,-2,0);
var y:mas;
    i,k,j,z:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
write(x[i]:4);
writeln;
{положительные}
k:=0;
for i:=1 to n do
if x[i]>0 then
 begin
  k:=k+1;
  y[k]:=x[i];
 end;
{ноли}
for i:=1 to n do
if x[i]=0 then
 begin
  k:=k+1;
  y[k]:=x[i];
 end;
{отрицательные}
for i:=1 to n do
if x[i]<0 then
 begin
  k:=k+1;
  y[k]:=x[i];
 end;
writeln('Перестановка:');
for i:=1 to n do
write(y[i]:4);
end.

@povtiasd051 2 / 2 / 0 Регистрация: 06.12.2010 Сообщений: 135
	06.09.2014, 20:35 [ТС]	2
	кто нибудь плиз 0

Опции темы

Получить из массива новый в котором сначала идут положительные числа, затем нули и потом отрицательные

Решение