Задача на массив, Я в тупике Опции

[Ученик]

Я в панике.
Задача: дан одномерный массив, для всех видов элементов вывести, сколько раз они встречаются в массиве, повторных выводов быть не должно.
Меня клинит никак не могу организовать "повторных выводов быть не должно".
Пока дальше этого не ушол:

var a:array[1..10];
k,i,j,n:integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if a[i]=a[j] then inc(k);
writeln('элемент',a[i],'встречается',k,'раз');
end;
end.

Христа ради поделитесь свежей идеей
мож я чо изначально не так делаю
Заранее ОГРОМНОЕ СПАСИБО.

М

1. Пожалуйста, при публикации программного текста используй теги. 2. Поменьше эмоций в названии. Исправлено. Lapp

[Lapp]

Можно еще вот так (см. прогу). Этот метод имеет недостаток: он разрушает исходный массив. Но если в условии ничего не сказано про его сохранение, то все Ок

const
  n=30;
var 
  a:array[1..n]of integer;
  k,i,j,n,b,c:integer;

begin
  for i:=1 to n do a[i]:=Random(20);
  b:=a[1];
  for i:=1 to n do if (i=1)or(a[i]<>b) begin
    k:=0;
    c:=a[i];
    for j:=1 to n do if c=a[j] then begin
      inc(k);
      a[j]:=b
    end;
    writeln('элемент',a[i],'встречается',k,'раз');
  end;
end.

Проверить не имел возможности, прошу прощения за возможные ошибки.

Сообщение отредактировано: Lapp - 3.12.2008 1:23