Составить программу упорядочивания по убыванию отрицательных элементов одномерного массива AN!!!

01.01.2001

Составить программу упорядочивания по убыванию отрицательных элементов одномерного массива AN!!!
Составить программу упорядочивания (по убыванию) отрицательных элементов одномерного массива A(N).

Вот есть решение, но тут что-то не так, она почему то не отсеивает положительные элементы, т. е нужно сделать так, чтоб она отбирала из всех элементов только отрицательные и их упорядочивала и выводила на экран, а в противном случае если нет отрицательных элементов должно быть соответствующее сообщение - "Отрицательных элементов нет".

Помогите, пожалуйста, что тут не так переделайте ее.

Код Pascal:

program www;
var
a:array[1..100] of integer;
m,i,j,n:integer;
begin
writeln('Введите количество элементов массива');
readln(n);
for i:=1 to n do
begin
writeln('Введите',i,'-й элемент массива ');
readln(a);
end;
if a<0 then
for j:=1 to n-1 do
for i:=1 to n-j do
if a < a[i+1] then
begin
m:=a;
a:=a[i+1];
a[i+1]:=m;
end;
writeln('Упорядоченный массив');
for i:=1 to n do
write(a,' ');
readln;
end.

  • ну так перед сортировкой сложи все отрицательные в новый массив
    ИЛИ
    при выводе не выводи положительные
    а так естественно - ты же их никуда не деваешь

Вас заинтересует