1263 Timus answer/Решение задачи 1263


№1263
http://acm.timus.ru/problem.aspx?space=1&num=1263
ЖМИ ДАЛЕЕ>>>


РЕШЕНИЕ:

PASCAL

Var
A: Array[1..10000] of LongInt;
I,J,N,M: LongInt;
Begin
Read(N,M);
FillChar(A,SizeOf(A),0);
For I:=1 to M do begin
Read(J);
Inc(A[J]);
End;
For I:=1 to N do
Writeln((A[I]/M*100):0:2,'%');
End.

1263. Выборы

Ограничение времени: 1.0 секунды
Ограничение памяти: 16 МБ
Грядут очередные выборы. Снова все заборы оклеены листовками, почтовые ящики забиты макулатурой, с экранов телевизоров на нас взирают мордатые дядьки, обещающие сделать нашу жизнь лучше… А программист Васечкин снова завален работой. Необходимо написать программу, которая облегчит подсчет голосов избирателей.

Исходные данные

Первая строка содержит целые числа N — число кандидатов (1 ≤ N ≤ 10000) и M — число избирателей, принявших участие в выборах (1 ≤ M ≤ 10000). Далее следуют M строк, в каждой из которых находится номер кандидата, за которого проголосовал избиратель. Кандидаты пронумерованы целыми числами от 1 до N.

Результат

Выведите N строк, в i-й строке должен быть указан процент избирателей, проголосовавших за i-го кандидата (с точностью до двух знаков после десятичной точки).

Пример

исходные данныерезультат
3 6
1
2
3
2
1
1
50.00%
33.33%
16.67%
Автор задачи: Ден Расковалов
Источник задачи: Открытое командное соревнование школьников Свердловской области по программированию, 11 октября 2003 года.
Ярлыки: