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

Пас­каль

var kcenkat : array[1..20] of integer;

с : char;

i,N,b,S,minckat : integer;

begin

for i:=0 to 20 do kcenkat[i]:=0;

readln(N);

for i:=l to N do

begin

repeat

read(c);

until c=' '; {счи­та­но на­зва­ние дра­го­цен­но­го камня}

repeat

read(c);

until c=' '; {счи­тан код}

readln(b);

kcenkat[b]:-kcenkat[b]+1;

end;

S:=0; b:=20;

while S+kcenkat[b] < N*0.05 do

begin

if kcenkat[b]>0 then

begin

S:=S+kcenkat[b];

minckat:=b;

end;

b:=b-l;

end;{опре­де­ле­ны те камни, ко­то­рые на­вер­ня­ка по­па­да­ют

в сейф и про­пу­ще­ны це­но­вые ка­те­го­рии, в ко­то­рые

не попал ни один ка­мень}

if S+1<=N*0.05 then

{если ещё хотя бы один дра­го­цен­ный ка­мень попадёт

в 5%,то про­ве­ря­ет­ся: це­но­вая ка­те­го­рия этого и

таких же кам­ней  — не менее 15-й}

if b>=15 then minckat:=b

writeln(minckat);

end.

Бей­сик

DIM kcenkatU ТО 20) AS INTEGER

DIM ss AS STRING

INPUT N

FOR TO N

LINE INPUT ss

i=l

DO

c$sMID$(ss,i,l)

i-i+i;

LOOP WHILE c$<>" "

'Счи­ты­ва­ем на­зва­ние дра­го­цен­но­го камня

DO

c$-MID$(ss,i,l)

i-i+1

LOOP WHILE c$<>" "

'Счи­ты­ва­ем код

b=VAL(MID$(ss,i))

kcenkat(b)-kcenkat(b)+1

NEXT j

b-20

WHILE s+kcenkat(b)<=N*0.05

IF kcenkat(b)>0 THEN

s=s+kcenkat(b)

minckat-b

END IF

b=b-l

WEND

IF s+l<N*0.05 THEN

IF b>-15 THEN

minckat-b

END IF

END IF

PRINT minckat

END