Задача: дан одномерный массив, для всех видов элементов вывести, сколько раз они встречаются в массиве, повторных выводов быть не должно.
Меня клинит никак не могу организовать "повторных выводов быть не должно".
Пока дальше этого не ушол:
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 |