Переставить элементы массива так, чтобы сначала следовали все отрицательные числа, а затем все остальные

@evgenique · Регистрация: 05.05.2011

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

Помогите, пожалуйста, решить задачу в Pascal

Дан целочисленный массив размером N. Преобразовать массив таким образом, чтобы сначала располагались все неотрицательные элементы, а потом – все отрицательные (при этом массив упорядочивать не надо)

Начало знаю, а дальше не получается

всё с ошибками выходит

Pascal

Program massiv;
 
uses crt;
 
const n=10;
 
var a,b:array[1..n] of integer;
 
i,k:integer;
 
begin
 
clrscr;
 
randomize;
 
writeln('Ishodny massiv');

@Высокий · 05.05.2011, 19:41

где то здесь это уже было...

Pascal

Uses crt;
const n=25;
var z:array[1..n] of integer;
    i,j,k:byte;
    x:integer;
begin clrscr;
randomize;
writeln('исходный массив:');
for i:=1 to n do
 begin
  z[i]:=-25+random(51);
  write(z[i]:4);
 end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if z[i] >= 0 then{если положительный}
  begin
    k:=k+1;{считаем}
    x:=z[i];{запоминаем}
    for j:=i downto k+1 do{сдвигаем начало массива-к позиций к этому элементу}
    z[j]:=z[j-1];{на 1}
    z[k]:=x;{на свободное место пишем это число}
  end;
writeln('Перестановка:');
for i:=1 to n do
write(z[i]:4);
readkey
end.

@evgenique · 05.05.2011, 19:46 **[ТС]**

Спасибо огромнейшее просто!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Так выручили!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :dance3: сейчас испробую её (прогу)

@evgenique 0 / 0 / 0 Регистрация: 05.05.2011 Сообщений: 6
	05.05.2011, 19:46 [ТС]	3
	Спасибо огромнейшее просто!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Так выручили!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :dance3: сейчас испробую её (прогу) 0

Опции темы