модуль для обработки одномерного массива

[kristya94]

В одномерном массиве, состоящем из n целых элементов, вычислить:
1) количество элементов, присутствующих в массиве в единственном экземпляре.
2) сумму модулей элементов, стоящих на чётных местах в массиве.
3) Сформировать новый массив из элементов, взятых по одному из каждой группы равных членов заданного массива.

[Vanta11a]

Огласите бюджет, пожалуйста, либо представляйте свои наработки.

[TinMan]

Кристя, вот так примерно..

1) Это задание проще делать, если массив упорядочен. Но если мы его сейчас упорядочим - мы не сможем решать задание 2. Поэтому переходим к нему, а потом вернемся к 1.

2) Предполагаю, что массив занумерован от 1 до n.

var
  a: array[1..n] of integer;
  s: longint;  {сумма может быть очень большой}
...
  s:= 0;
  for i:=1 to n div 2 do s:= s + Abs(a[i*2]);

Теперь возвращаемся к 1

1) Отсортируем массив по возрастанию:

  for i:=2 to n do
    for j:=n downto i do if a[j]<a[j-1] then begin
      b:= a[j];
      a[j]:= a[i];
      a[i]:= b
    end;

Теперь подсчитаем, сколько уникальных элементов.

  u:= 0;
  for i:=1 to n do
    if ((i=1) or (a[i-1]<a[i])) and ((i=n) or (a[i]<a[i+1])) then inc(u);
  writeln(u,' elements are unique');

И переходим сразу к 3, поскольку 2 уже есть.

3) Собственно, нужно делать то же самое, что и в 1, только добавить заполнение массива c.

  u:= 0;
  for i:=1 to n do
    if ((i=1) or (a[i-1]<a[i])) and ((i=n) or (a[i]<a[i+1])) then begin
      inc(u);
      c[u]:= a[i]
    end;

Если хочешь, пункты 1 и 3 можно объединить в один цикл.
Вот и все .

Одна оговорка: элементы в сформированном массиве упорядочены по возрастанию. В самом задании не сказано ничего про порядок, но если все-таки нужно, чтоб они шли в порядке первой встречи в заданном массиве, то решение изменится. Уточни, нужно ли тебе это.