Немогу решить массив.

[pavelmd]

Дан сохранив порядок их следования.массив целых чисел. Записать в этот же массив сначала все отрицательные числа и нули, затем все положительные.Спасибо.

[Alex11223]

Решить массив... Хорошо хоть не порешить массив

[Serge_Bliznykov]

_________

1. Название темы должно адекватно отражать суть решаемой задачи/проблемы.



2. что, неразрешимая задача?!

цитирую из Вашей темы:
Немогу написать массив.

Помогите решить задачу. Дан массив целых чисел. Записать в этот же массив сначала все положительные числа и нули, затем все отрицательные числа, сохранив порядок их следования.

вам приводят несколько ответов, решений, решение от TinMan

в конце Ваш пост #7

Спасибо всем , все работает.

Изменить данное решение не представляется возможным?!

КОРОЧЕ, ДАННАЯ ТЕМА ЗАКРЫТА!

Модератор.

p.s. изменить достаточно всего одну строку (причём очевидно изменить):

      if (a[j]<=0) and (a[j-1]>0) then begin