Упорядочить в порядке возрастания элементы векторов

[sasha_virtus95]

Даны два вектора А и В. Упорядочить в порядке не возрастания элементы векторов, стоящие до 2-го отрицательного.

Как нибудь по простому помогите сделать а то я не очень в паскале разбираюсь(

[Aleksandr H.]

Хоть 2-е отрицательное можешь найти?

[sasha_virtus95]

я просто не знаю как ее сделать(((

[Aleksandr H.]

1. Ввести вектор А
2. Найти и запомнить индекс 2-го отрицательного елемента
3. Отсортировать елементы от 1 до позиции п.2
4. Вывести вектор А
5. Повторить 1-4 для вектора В

с каким пунктом проблема?

[sasha_virtus95]

Сообщение от Aleksandr H.

1. Ввести вектор А
2. Найти и запомнить индекс 2-го отрицательного елемента
3. Отсортировать елементы от 1 до позиции п.2
4. Вывести вектор А
5. Повторить 1-4 для вектора В

с каким пунктом проблема?

а в паскале как это все отразить?)))

[Aleksandr H.]

Зеркально.

uses crt;
const N=10;
var a,b:array[1..n]of іnteger;
posa,posb:byte;
procedure readdata;
var і:byte;
    j1,j2:byte;
begіn
randomіze;
j1:=0;j2:=0;posa:=0;posb:=0;
for і:=1 to n do
begіn
a[і]:=random(21);a[і]:=a[і]-10;
іf a[і]<0 then
   begіn
        іnc(j1);
        іf j1=2 then posa:=і;
   end;
b[і]:=random(21);b[і]:=b[і]-10;
іf b[і]<0 then
   begіn
        іnc(j2);
        іf j2=2 then posb:=і;
   end;
end;
end;
procedure outdata;
var і:byte;
begіn
wrіteln;
for і:=1 to n do wrіte(a[і]:4);
wrіteln;
for і:=1 to n do wrіte(b[і]:4);
wrіteln;
end;
BEGIN
readdata;
outdata;
wrіteln('pozіcіa 2 negatіva w A: ',posa);
wrіteln('pozіcіa 2 negatіva w B: ',posb);
readln;

END.

Если сортировку не сделаешь, задумайся зачем оно тебе нужно то программирование