Дан массив x целых чисел, содержащий как положительные, так и отрицательные элементы

Дан массив x целых чисел, содержащий как положительные, так и
отрицательные элементы. Исключить все положительные элементы,
встречающиеся в массиве более одного раза, затем отрицательные
упорядочить по убыванию.


program lab;
const count=100;
var
a:array[1..count] of integer;
n,i,j,k,p,x,l:integer;
f:boolean;
begin
randomize;
write('n=');readln(n);
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
i:=1;
while i<n do
begin
f:=false;
j:=i+1;
while (j<=n)and not f do
if (a[j]=a[i]) and (a[i] >= 0) then f:=true
else j:=j+1;
if f then
begin
x:=a[i];
p:=i;
while p<=n do
if a[p]=x then
begin
if p=n then n:=n-1
else
begin
for k:=p to n-1 do
a[k]:=a[k+1];
n:=n-1;
end
end
else p:=p+1;
end
else i:=i+1;
end;
if n=0 then write('Массив пустой')
else
begin
writeln('Положительные повторяющиеся элементы удалены:');
for i:=1 to n do
write(a[i],' ');
writeln;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] < 0 then
if a[i] < a[j] then
begin
l:=a[i]; a[i]:=a[j]; a[j]:=l;
end;
writeln('Отрицательные элементы упорядочены по убыванию:');
for i:=1 to n do
write(a[i], ' ');
end.

Можно ли как то проще сделать?

0

0