помогите решить одномерный массив!

[маршка]

Дан вектор Р(13). Если отрицательных элементов в векторе больше, чем положительных, то упорядочить вектор по возрастанию, иначе оставить без изменения.
Нужно составить программу в pascal и сделать болк-схему...

[Alex21]

1. Цикл от 1 до 13 - считаем кол-во "+" и кол-во "-".
2. Если "+" < "-", то Сортировка.

[kommunist]

program v;
uses crt;
const n =13;
type vector = array[1..n] of integer;
var a:vector;
    i:integer;
    kol1:integer;   {pologit}
    kol2:integer;
    buf:integer;
    min:integer;
    j:integer;
begin
  randomize;
  clrscr;
  for i := 1 to n do
begin
  a[i] := random(10) - 5;
  write(a[i],' ');
end;
writeln;
  for i:= 1 to n do
begin
  if a[i] > 0
  then
  inc(kol1)
  else
  inc(kol2);
end;
  if kol1 < kol2
  then
begin
  write(a[i],' ');
end;
  if kol1 > kol2
  then
begin
  //сортировка вектора
    for i:= 1 to n-1 do
begin
    for j:=i+1 to n do
    if a[j] < a[min]
    then
    min:=j;
    buf:=a[i];
    a[i]:=a[min];
    a[min]:=buf;
end;
   for i:= 1 to n do
begin
  write(a[i],' ' );
end;
  writeln;
end;
 readln;
end.

[Rapid]

А можно еще так

program ConsTemplate;

{$APPTYPE CONSOLE}

// Шаблон консольного приложения
// В шаблоне есть:
//  1. Русификатор (Функция Rus)
//  2. Написан раздел переменных (можно неутруждать себя написанием слова var
//  3. Шаблон с названием и описанием программы
// Все это облегчает создание консольных приложений (Особенно небольших)


function Rus(mes: string):string;  // Начало функции русификатора
     var
        ICharNumber: integer; // номер обрабатываемого символа
    begin
        for ICharNumber:=1 to length(mes) do
           case mes[ICharNumber] of
              'А'..'п' : mes[ICharNumber]:=Chr(Ord(mes[ICharNumber]) - 64);
              'р'..'я' : mes[ICharNumber]:=Chr(Ord(mes[ICharNumber]) - 16);
           end;
        rus:=mes;
    end; // Конец функции русификатора

var
  SHelloString : String;
  SComment : String;
  SEnd : String; //Конец области переменных шаблона..................
  Arr  : array[1..13] of real;
  i : integer;
  N : integer;
  buf : real;
  changed : boolean;
begin //Область задания шаблона......................................
  SHelloString:='My Console'; //Идентификатор консолей, созданных мной
  SEnd:='Для завершения нажмите <Enter>';
    SHelloString:=SHelloString+'';//Название приложения
    SComment:='';//Комментарий
  writeln( Rus(SHelloString) );
  writeln(Rus(SComment));
//Основной текст программы начинается в этом месте .............................
 N:=0;
 for  i:=1  to 13 do
 begin
   readln(Arr[i]);
    if Arr[i]<0 then
    begin
      Inc(N);
    end;
  end;


if N>=7 then
begin
 repeat
  Changed:=FALSE;
  for i:=1 to 12 do
    if arr[i] > arr[i+1] then
      begin
      buf := arr[i];
      arr[i] := arr[i+1];
      arr[i+1] := buf;
      changed := TRUE;
    end;
 until not Changed;
end;

Writeln(Rus('Вывод массива'));

  for  i:=1  to 13 do
  begin
    writeln(arr[i]:2:2);
  end;


//Здесь заканчивается основная программа .......................................
    write( Rus(SEnd) ); //Стандартное завершение
    readln(SComment);
end.