Я в панике.
Задача: дан одномерный массив, для всех видов элементов вывести, сколько раз они встречаются в массиве, повторных выводов быть не должно.
Меня клинит никак не могу организовать "повторных выводов быть не должно".
Пока дальше этого не ушол:
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 |
Сначало разберись что у тя n, видимо ты хотел её описать в разделе констант, а так она у тебя 0 или какойнить мусор...
меня клинит
const n=10;
var a:array[1..n];
Добавлено через 2 мин.
мне ума не хватает сделать штобы повторных выводов не было
с этим вариантом программы или ешо какнибудь
Первое, что приходит на умб это при просмотре N элемента, просматривать на повтор все элементы от 1 до N и если найденно совпадение, то переходить к N + 1 элементу...
Можно еще вот так (см. прогу). Этот метод имеет недостаток: он разрушает исходный массив. Но если в условии ничего не сказано про его сохранение, то все Ок
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.
И вправду, гораздо лучше моего метода )
writeln('элемент',a[i],'встречается',k,'раз');будет выводить всегда только тот элемент массива, который изначально был первым, насколько я вижу. Лучше:
writeln('элемент',C,'встречается',k,'раз');, тогда отработает правильно.
Спасиба всем, особенно после исправлений кота всё заработало.
Вот плохо будет если меня пошлют с разрушением исходного массива