работа с массивом

[kritik]

Помогите пожалуйста написать программку:
Упорядочить по убыванию только положительные элементы массива,
оставив другие элементы в прежних ячейках.

[Вавел из ГМТУ]

Я думаю, что нужно написать процедуру которая будет упорядочнивать элементы массива "с" и "до" указанной позиции.

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

[puporev]

uses crt;
const nmax=100;{максимальный размер массива}
var a:array[1..nmax] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Введите размер массива n=');
readln(n);
until n in [1..nmax];{проверяем правильность ввода}
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-20;
  write(a[i]:4);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if(a[i]<a[j])and(a[i]>0)then{если число положительное и меньше встреченного}
 begin
  x:=a[i];{меняем их местами через буфер
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i]:4);
readln
end.

[kritik]

получается массив состоит из чисел от 1 до 100? а отрицательные числа уже не получится ввести?

[Вавел из ГМТУ]

Массив содержит в себе 100 чисел которые могут быть от -20 до 30.

[puporev]

получается массив состоит из чисел от 1 до 100? а отрицательные числа уже не получится ввести?

А прогнать программу и посмотреть влом?

которые могут быть от -20 до 30.

Точнее от -20 до 29

[kritik]

Сообщение от puporev

А прогнать программу и посмотреть влом?

не было возможности просто, а так большое вам спасибо за помощь

я так поняла строчка

  a[i]:=random(50)-20;
  write(a[i]:4);

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

[Ser@Fim]

Замени

for i:=1 to n do
 begin
  a[i]:=random(50)-20;
  write(a[i]:4);
 end;

на

for i:=1 to n do
 begin
  write('Введите a[',i,']= ');
  readln(a[i])
 end;

Можешь еще у пользователя спросить, каким способом заполнять

[kritik]

Сообщение от Ser@Fim

Замени

for i:=1 to n do
 begin
  a[i]:=random(50)-20;
  write(a[i]:4);
 end;

на

for i:=1 to n do
 begin
  write('Введите a[',i,']= ');
  readln(a[i])
 end;

Можешь еще у пользователя спросить, каким способом заполнять

это то что нужно!! спасибо тебе огромное!!

[puporev]

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

Просто поражает, как можно год проучиться и таких основ не знать.