Ре­ше­ние. Про­грам­ма чи­та­ет все вход­ные дан­ные один раз, не за­по­ми­ная их в мас­си­ве, раз­мер ко­то­ро­го со­от­вет­ству­ет числу вход­ных дан­ных N или мак­си­маль­ной цене (3000). Во время чте­ния дан­ных опре­де­ля­ют­ся две ми­ни­маль­ных цены и ко­ли­че­ство АЗС, про­да­ю­щих по 92-й бен­зин по этим ценам. При пе­ча­ти ре­зуль­та­та про­ве­ря­ет­ся, что у кого-то цена боль­ше ми­ни­маль­ной (вто­рая по ми­ни­маль­но­сти цена су­ще­ству­ет), в этом слу­чае ис­ко­мая (ис­ко­мые) АЗС  — со вто­рой по ве­ли­чи­не ценой, если это не так, то ис­ко­мая (ис­ко­мые) АЗС  — все, про­да­ю­щие 92-й бен­зин. Баллы на­чис­ля­ют­ся толь­ко за про­грам­му, ко­то­рая ре­ша­ет за­да­чу хотя бы для од­но­го част­но­го слу­чая (на­при­мер, когда все АЗС про­да­ют бен¬зин по раз­лич­ной цене, и 92-й бен­зин про­да­ют не менее двух АЗС).

При­мер пра­виль­ной и эф­фек­тив­ной про­грам­мы на языке Пас­каль:

var c: char;

i, k, N, b, mini, min2, cntl, cnt2: integer;

s,si,s2: string;

begin

mini:=3001;

cntl:=0;

readln(N);

for i:=l to N do

begin

read(c) ;

si := ' ' ;

repeat

s:=s+c;

read(c);

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

repeat

s:=s+c;

read(c) ;

until c=' '; {улица до­бав­ле­на к ком­па­нии}

readln(k,b);

if k = 92 then

if mini > b then

begin

min2:=minl;

cnt2:=cntl;

s2:=sl;

minl:=b;

cntl:=l;

sl:=s

end else

if mini = b then cntl:=cntl+l else

if min2 > b then

begin

min2:=b; cnt2:=l; s2:=s

end else

if min2 = b then cnt2:=cnt2+l

end;

if cnt2>0 then

if cnt2=l then

writeln(s2) else writeln(cnt2)

else {все АЗС про­да­ют 92-й бен­зин по одной цене}

if cntl=l then writeln(sl) else writeln(cntl) ;

writeln;

end.

При­мер пра­виль­ной про­грам­мы на языке Бей­сик:

DIM s AS STRING

DIM si AS STRING, s2 AS STRING

mini = 3001

cntl = 0

INPUT n

FOR j = 1 TO n

LINE INPUT s

i = 0

DO

i = i + 1

c$ - MID$(s, i, 1)

LOOP WHILE c$ <> " "

DO

i = i + 1

c$ = MID$ (s, i, 1)

LOOP WHILE c$ 0> " "

DO

i = i + I

с $ - MID$ (s, i, 1)

LOOP WHILE c$ <> " "

m = VAL(MID$(S, i + 1, 2) )

b = VAL(MID$(s, i + 4))

k = i - 1

s = LEFTS(s, k)

IF m = 92 THEN

IF mini > b THEN

min2 = mini: cnt2 = cntl: s2 = si

mini = b: cntl = 1: s1 = s

ELSE

IF mini = b THEN

cntl = cntl + 1

ELSE

IF min2 > b THEN

min2 = b: cnt2 =1: s2 = s

ELSE

IF min2 = b THEN cnt2 = cnt2 + i

ENDIF

ENDIF

ENDIF

ENDIF

NEXT j

IF cnt2 > 0 THEN

IF cnt2 = 1 THEN PRINT s2 'ELSE PRINT cnt2

ELSE

IF cntl = 1 THEN PRINT si ELSE PRINT cntl

ENDIF

END