Постая задача

[maks2020]

Петя Пяточкин построил слоников в ряд и считает их отдельно по цветам. Всего бывает 8 цветов слоников. В ряд построились N (10<N<999) слоников. Сколько слоников каждого цвета стоит перед Петей? Желательно посчитать их, пройдя перед строем всего один раз.

Технические условия. Программа считывает с клавиатуры целое число N - количество слоников, потом, через пробел - N чисел от 1 до 8, которыми мы прономеровали каждый цвет в той последовательности, в какой они попадались на глаза Пете при просмотре ряда с начала. Программа выводит на экран в одну сторку через пропуски пары целых чисел, где первое число пары - цвет, а второе - количество слоников такого цвета.

Пример.

Ввод>12
1 1 2 3 3 1 5 6 8 7 6 5
Вывод>
1 3
2 1
3 2
4 0
5 2
6 2
7 1
8 1




Вот не могу докумекать, помогите с решить, но только на паскале пожалуйста :conf used:

[Ghost of Night]

Это тебе для олимпиады???
А почему только на Паскале???

[maks2020]

Да..
Что бы я врубился, я пока только паскаль боле-менее знаю:

[Mad_Cat]

var s:array[1..999] of integer;// слоники
     m:array[1..8] of integer;// счетчик цветов
i:integer;n:integer;
begin
read(n);
for i:=1 to n do
read(s[i]);
for i:=1 to 8 do 
m[i]:=0;
for i:=1 to n do
 inc(m[s[i]]);
for i:=1 to 8 do
writeln(i,'-',m[i]);
readln;
end.

[maks2020]

большое спасибо, но если вы бы еще прокомментировали для чего

inc(m[s[i]]);

[Mad_Cat]

большое спасибо, но если вы бы еще прокомментировали для чего

а ты подумай раз

тебе для олимпиады

[LeBron]

Более "однопроходно" можно с такой идеей:

read(n);
for i:=1 to n do begin
read(q);inc(m[q]);end;