| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1263
| 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. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 808 |