Упорядочить компоненты вектора так, чтобы сначала размещались все отрицательные компоненты, затем все положительные

@Buuu · Регистрация: 27.06.2013

Дан вектор А(а1,а2,...,а100). Упорядочить компоненты вектора так, чтобы сначала размещались все отрицательные компоненты, затем все положительные, а потом нулевые

@Puporev · 28.06.2013, 17:00

Pascal

uses crt;
const n=100;
var a:array[1..n] of integer;
    i,j,k:byte;
    x:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
   begin
     a[i]:=random(8)-4;
     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;
{нулевые в конец}
k:=0;
for i:=n downto 1 do
if a[i]=0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i to n-k do
    a[j]:=a[j+1];
    a[n-k+1]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i]:4);
end.

@Buuu · 28.06.2013, 17:15 **[ТС]**

Спасибо большое!!!Я уже написала, но немнооожечко иначе

@Buuu 0 / 0 / 0 Регистрация: 27.06.2013 Сообщений: 9
		1
	Упорядочить компоненты вектора так, чтобы сначала размещались все отрицательные компоненты, затем все положительные 28.06.2013, 09:30. Показов 2194. Ответов 2 Метки нет (Все метки) Дан вектор А(а1,а2,...,а100). Упорядочить компоненты вектора так, чтобы сначала размещались все отрицательные компоненты, затем все положительные, а потом нулевые 0

@Buuu 0 / 0 / 0 Регистрация: 27.06.2013 Сообщений: 9
	28.06.2013, 17:15 [ТС]	3
	Спасибо большое!!!Я уже написала, но немнооожечко иначе 0

Опции темы

Упорядочить компоненты вектора так, чтобы сначала размещались все отрицательные компоненты, затем все положительные

Решение