Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача с одномерным массивом

Автор: Cok 3.06.2010 4:25

Ввести массив целых чисел из n элементов (задано константой). Переместить все отрицательные элементы в конец массива. Вывести массив на экран.

Решите пожалуйста. Буду признателен. Сам в Паскале чайник.. Кто решит, в долгу не останусь


Автор: Lapp 3.06.2010 7:33

Цитата(Cok @ 3.06.2010 1:25) *
Кто решит, в долгу не останусь
Точно не останешься? smile.gif тогда учи Паскаль - тем и отдашь.. ))

Поскольку про сохранение порядка ничего не сказано, то можно как-то так..
  for i:=1 to n do Write(a[i]:3);
WriteLn;
i:=1;
j:=n;
while i<j do begin
if a[i]<0 then begin
while (j>i)and(a[j]<0) do Dec(j);
b:=a[i];
a[i]:=a[j];
a[j]:=b;
Dec(j)
end;
Inc(i)
end;
for i:=1 to n do Write(a[i]:3);

Автор: Cok 3.06.2010 15:16

Спасибо, Андрей) выручил