Завод по огранке драгоценных камней приобрёл сейф повышенной

Решение по шагам

1. 1

   Как рассуждать

   Решение. Программа читает все входные данные один раз, сразу подсчитывая в массиве с индексами от 1 до 20 количество камней, принадлежащих определённой ценовой категории. Путём просмотра этого массива с конца (от 20-й ценовой категории) определяется число камней, заведомо попадающих в число 5% самых дорогих (добавление всех камней, следующей ценовой категории приводит к выходу за 5%). Последняя ценовая категория, в которую попало не менее одного драгоценного камня, запоминается. Если хотя чбы один из камней следующей ценовой категории также попадает в 5%, то проверяется имеют ли он и другие камни, набравшие столько же баллов, ценовую категорию не менее 15-й. В этом случае они все добавляются к числу драгоценных камней, которые необходимо поместить в сейф повышенной надёжности и ценовая категория которых является искомой.

   Паскальvar kcenkat : array[1..20] of integer;с : char;i,N,b,S,minckat : integer;beginfor i:=0 to 20 do kcenkat[i]:=0;readln(N);for i:=l to N dobeginrepeatread(c);until c=' '; {считано название драгоценного камня}repeatread(c);until c=' '; {считан код}readln(b);kcenkat[b]:-kcenkat[b]+1;end;S:=0; b:=20;while S+kcenkat[b] < N0.05 dobeginif kcenkat[b]>0 thenbeginS:=S+kcenkat[b];minckat:=b;end;b:=b-l;end;{определены те камни, которые наверняка попадаютв сейф и пропущены ценовые категории, в которыене попал ни один камень}if S+1<=N0.05 then{если ещё хотя бы один драгоценный камень попадётв 5%,то проверяется: ценовая категория этого итаких же камней — не менее 15-й}if b>=15 then minckat:=bwriteln(minckat);end. БейсикDIM kcenkatU ТО