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

[Ученик]

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

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

[renesko1]

Сначало разберись что у тя n, видимо ты хотел её описать в разделе констант, а так она у тебя 0 или какойнить мусор...

[Ученик]

меня клинит
const n=10;
var a:array[1..n];

Добавлено через 2 мин.
мне ума не хватает сделать штобы повторных выводов не было
с этим вариантом программы или ешо какнибудь

[renesko1]

Первое, что приходит на умб это при просмотре N элемента, просматривать на повтор все элементы от 1 до N и если найденно совпадение, то переходить к N + 1 элементу...

[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 - 2.12.2008 21:23

[renesko1]

И вправду, гораздо лучше моего метода )

Сообщение отредактировано: renesko1 - 2.12.2008 21:22

[Lapp]

И вправду, гораздо лучше моего метода )

Спорно.
Везде свои преимущества .

Несколько раз я редактировал прогу - надеюсь, сейчас ок. Если кто может - проверьте, плз..

[volvo]

Если кто может - проверьте, плз..

Программа в строке

writeln('элемент',a[i],'встречается',k,'раз');

будет выводить всегда только тот элемент массива, который изначально был первым, насколько я вижу. Лучше:

writeln('элемент',C,'встречается',k,'раз');

, тогда отработает правильно.

[Ученик]

Спасиба всем, особенно после исправлений кота всё заработало.
Вот плохо будет если меня пошлют с разрушением исходного массива

[Lapp]

Вот плохо будет если меня пошлют с разрушением исходного массива

Сделай копию .


volvo, спасибо