Массивы. Паскаль.

[Natsu]

Добрый день, требуется решить программу с массивами на языке паскаль до завтра, но катастрофически не хватает времени на освоение материала (подозреваю, что надо осваивать сортировки ). Задача не особо трудная, у кого есть возможность - помогите, пожалуйста.

Задание: Создать числовой массив A[1..N]. Упорядочить массив по убыванию. Вычислить кол-во отрицательных элементов. Выдать на экран результаты.

Заранее благодарен.

[tocsik]

Требуется код?

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  const
  n =10;
  var a:array [1..n] of integer;
  i,j,b,c:integer;
begin
randomize;
for i := 1 to n  do
  begin
    a[i]:=random(25)-random(10);
    write(a[i], ' ');
  end;
    writeln;


  for i := n - 1 downto 1 do
    for j := 1 to i do
        if a[j] > a[j+1] then
        begin
            b := a[j];
            a[j] := a[j+1];
            a[j+1] := b;

        end;

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

  writeln;
  writeLn('Koli4estvo otricatel`nigh elementov: ', c);
          readln;
end.

Получите и распишитесь!

[Natsu]

Огромное спасибо, выручили сильно. И очень оперативно)