Эффективную, в том числе и по используемой памяти, программу (укажите

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

1. 1

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

   Решение. Программа читает все входные данные один раз, не запоминая их в массиве, размер которого соответствует числу входных данных 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 thenif mini > b thenbeginmin2:=minl; cnt2:=cntl; s2:=sl; minl:=b; cntl:=l; sl:=s end elseif mini = b then cntl:=cntl+l elseif min2 > b thenbeginmin2:=b; cnt2:=l; s2:=s end elseif min2 = b then cnt2:=cnt2+l end;if cnt2>0 thenif cnt2=l then writeln(s2) else writeln(cnt2) else {все АЗС продают 92-й бензин по одной цене} if cntl=l then writeln(sl) else writeln(cntl) ; writeln; end. Пример правильной программы на языке Бейсик:DIM s AS STRINGDIM si AS STRING, s2 AS STRINGmini = 3001 cntl = 0 INPUT nFOR j = 1 TO n LINE INPUT s i = 0 DOi = i + 1c$- MID$(s, i,