Интернет-магазин "Мир робототехники" к Новому году выпустили и распространили серию промокодов на скидку 20%. Так как изначально ответственные за акцию хотели предсказать количество покупателей со скидкой, все промокоды были одноразовые. Но, анализируя поведение покупателей на сайте, менеджеры по продажам выяснили, что довольно часто люди используют промокод дважды (или дают друзьям). А если промокод не проходит, покупатели довольно часто прекращают покупку и уходят к конкурентам — это оказалось не выгодно и снижало лояльность клиентов. В связи с этим, магазин изобрел следующую систему:
За верный промокод на 20%, введенный первый раз, покупатель получает скидку 20%.
За верный промокод на 20%, использованный кем-то ранее, покупатель получает скидку 10% и символический подарок.
За неверный промокод (попытку подобрать и вообще желание получить скидку) пользователь получает скидку 3% и символический подарок.
По данным из базы интернет-магазина определите, какие размеры скидок получили покупатели.
Формат входных данных
В первой строке входного файла записано целое число N (0≤N≤10^5)
— количество выпущенных промокодов.
Далее через пробел идут N чисел Ai (0≤Ai< 10^9)
— номера промокодов формата PROMO20Ai
Все промокоды различны.
После на новой строке целое число K (1≤K≤10^6)
— количество покупателей, которые воспользовались промокодами.
Затем в K строках подаются запросы на использование промокодов в виде их номеров, по одному на строку.
Формат выходных данных
Выведите через пробел 3 числа: количество покупателей, получивших скидку 20%, 10% и 3% соответственно.
Sample Input:
5
350224385 421527554 645922824 813694986 195035148
10
421527554
984499638
805548090
813694986
195035148
174979501
645922824
894171338
195035148
813694986
Sample Output:
4 2 4
Напишите программу. Тестируется через stdin → stdout
program task32595137;
const maks=5; {Сюда вставляем размерность массива}
var
masiv:array[1..maks] of real; {сам массив}
i:integer;
begin
randomize; {встряхиваем генератор случайных чисел}
for i:=1 to maks do begin
masiv[i]:=(random(300)-10)/10; {создаем нам нужные числа, по хорошему надо вынести в отдельную процедуру}
write('i',i,'=',masiv[i],' '); {выводим до сравнения с условием про округление}
if abs(masiv[i])<1 then masiv[i]:=round(masiv[i]); {делаем наше условие}
write('i',i,'=',masiv[i],' '); {печатаем после применения нашего условия про округление.}
end; {for i}
end.
i,n,ko,kp:integer;
begin
write('Введите количество элементов массива n= '); readln(n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
write(a[i],' ');
ko:=0; kp:=0;
for i:=1 to n do
if a[i]>0 then kp:=kp+1 else if a[i]<0 then ko:=ko+1;
if ko>kp then writeln ('Отрицательных элементов больше чем положительных')
else if ko<kp then writeln ('Положительных элементов больше чем отрицательных')
else writeln ('Количество положительных и отрицательных элементов равны');
end.