Задача на одномерный массив, Ребята, помогите с задачкой. Опции

[Chopper]

:low: Задан упорядоченный по невозрастанию одномерный массив. :low:
1) найти произведение отрицательных элементов массива;
2) найти сумму положительных элементов массива;
3) упорядоченный по невозрастанию массив преобразовать в упорядоченный по возраста-нию, оставив по одному в каждой группе совпадающих элементов.

[Altair]

Ой, что-то мне кажется что все это уже было.... Chopper, вы искали по фруму?
Вот 2 точно было...

[Digitalator]

А о чем мы говорили только что в "Club of Coders"? Это знамение свыше о бесмысленности стандартизации и архивов

[Altair]

точно ... :yes:

[Chopper]

не понял вас? здесь уже где-то есть ответ на эту задачу?

[Dark]

Читиай правила - там ясно сказано, что надо читать FAQ

[volvo]

Chopper
Вот тебе первые 2 части задания.

Код

const
 n = 10;
 a: array[1 .. n] of integer =
   (6, 4, 2, 2, 0, -1, -3, -5, -5, -6);
var
 p, s: longint;
 i: integer;
begin
 p := 1; i := n;
 while a[i] < 0 do
   begin
     p := p * a[i]; dec(i)
   end;
 writeln('p = ', p);

 s := 1; i := 1;
 while a[i] > 0 do
   begin
     s := s + a[i]; inc(i)
   end;
 writeln('s = ', s);
end.

С третьей сам справишься, или нужна помощь?