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

[максим2012]

В массиве целых чисел N должны быть введены сначала все отрицательные числа и нули, затем положительные диапазон номеров [-20 .. 10] массива T, сохраняя их порядок. заранье спасибо

[Leshii]

Есть два варианта решения вашей головной боли

1)

randomize;
 for i:=1 to n do begin
      T[i]:=random(31)-20;
 end;
 for i:=1 to n do begin
      if T[i] < 0 then write(T[i],' ');
      if T[i] = 0 then write(T[i],' ');
      if T[i] > 0 then write(T[i],' ');
 end;

2)
Ввод массива тот же, только вместо условий сделать сортировку.

[максим2012]

СПАСИБО А ЕСЛЕ НЕ СЛОЖНО МОЖЭШ НАПИСАТЙ ВСЮ ПРАГРАМУ А ТО Я НЕ ПАНИМАЮ НИЧЕВО В ПАСКАЛЕ

[Mad_Cat]

только вместо условий сделать сортировку.

сортировка не прокатит так как

сохраняя их порядок

2 вариант = перестановка

[максим2012]

так сможеш написать???ато я не успею выучьтй до завтра..

[Poma][a]

for i:=1 to n do begin
if T[i] < 0 then write(T[i],' ');
if T[i] = 0 then write(T[i],' ');
if T[i] > 0 then write(T[i],' ');
end;

Не вижу смысла...
Всё равно что, в моем первом кармане есть конфеты? - Да. отдам их Ромахе
- Нет. Всё равно отдам их Ромахе

// заполнение массива в наглую скрадем у Лешего, и не забудем сказать спасибо
for i := 1 to n do 
    if a[i] <= 0 then
        Write (a[i], ' ');

for i := 1 to n do
    if a[i] > 0 then
        Write (a[i], ' ')

P.S. Ой щас придут Серж и Stilet, полечат кого-то горчичниками и за многочисленные ошибки, и за флуд, и за все другое...

[Stilet]

Я вас, ребята, ща постараюсь разочаровать

В массиве целых чисел N должны быть введены сначала все отрицательные числа и нули, затем положительные

Соответственно:

 for k:=1 to n do begin readln(q[k]) end;
 i:=1;
Перемещаем сначала негативы
 for k:=1 to n do begin  if q[k]<0 then begin t[i]:=q[k]; inc(i); end; end;

Потом нули
 for k:=1 to n do begin  if q[k]=0 then begin t[i]:=q[k]; inc(i); end; end;

Потом позитивы
 for k:=1 to n do begin  if q[k]>0 then begin t[i]:=q[k]; inc(i); end; end;

Здесь работает вспомогательный массив, откуда потом идет сортировка по условиям топа.

[Poma][a]

Да Виталий, умеете Вы обрадовать
Теперь меня смущает это :

сохраняя их порядок.

[максим2012]

так сможыте написатй всю праграму