Задание № 7542

От цифровых датчиков в компьютер поступает информация о характеристиках физического процесса. Результатом каждого измерения является неотрицательное целое число.

Вам предлагается написать эффективную, в том числе по используемой памяти, программу, которая будет выводить третье по величине (считая от максимума) значение измерения. Если несколько измерений имеют одинаковые значения, то они учитываются как одно измерение. Если искомого значения не существует (например, когда все значения измерений равны), то нужно вывести символ «#». Следует учитывать, что количество измерений может быть очень велико.

Перед текстом программы кратко опишите используемый Вами алгоритм решения задачи. На вход программе в первой строке подаётся общее количество N значений измерений. В каждой из последующих N строк записано целое число. Гарантируется, что N > 1, то есть всегда имеется хотя бы одно измерение.

Пример входных данных:

5

100

10

100

10

100

Пример выходных данных для приведённого выше примера входных данных:

#


Решать другие задания по теме: Об­ра­бот­ка символьных строк

Показать ответ
Комментарий:

Содержание верного ответа

Программа последовательно читает значения измерений, обновляя при необходимости три наибольших значения. После цикла печатается результат.

Баллы начисляются только за программу, которая решает задачу хотя бы для одного частного случая. Ниже приведёны примеры решения задания на языках Паскаль, Бейсик и алгоритмическом языке. Допускаются решения, записанные на других языках программирования

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

DIM N, Max, Next_Max, Next_Next_Max, i, s AS Integer 
Max = -1: Next_Max = -1 
Next_Next_Max = -1 
INPUT N
REM Считываем количество измерений 
FOR i = 1 to N 
	INPUT s
	REM Считали очередное значение 
	IF s > Max THEN
	REM обновление всех трёх максимумов
		Next_Next_Max = Next_Max: Next_Max = Max: Max = s 
	ELSE
		IF (s > Next_Max) AND (s <> Max) THEN 
		REM обновление 2-го и 3-го максимума 
			Next_Next_Max = Next_Max: Next_Max = s 
		ELSE
			IF (s > Next_Next_Max) AND (s <> Max) AND (s <> Next_Max) THEN 
			REM обновление 3-го максимума 
				Next_Next_Max = s 
			END IF 
		END IF 
	END IF 
NEXT i
REM Вывод результата 
IF Next_Next_Max > -1 THEN 
	PRINT Next_Next_Max 
ELSE
	PRINT '#'
END IF

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

Var N, Max, Next_Max, Next_Next_Max, i, s: integer; 
begin
	Max := -1; Next_Max := -1; Next_Next_Max := -1;
	ReadLn (N); {Считываем количество измерений} 
	for i := 1 to N do begin
		ReadLn (s); {Считали очередное значение} 
		if s > Max then begin 
		{обновление всех трёх максимумов}
			Next_Next_Max := Next_Max; Next_Max := Max; Max := s; 
		end
		else if (s > Next_Max) and (s <> Max) then begin 
		{обновление 2-го и 3-го максимума}
				Next_Next_Max := Next_Max;
				Next_Max := s; 
			end
			else if (s > Next_Next_Max) and (s <> Max) and (s <> Next_Max) then 
			{обновление 3-го максимума}
				Next_Next_Max := s; 
	end; {Вывод результата} 
	if Next_Next_Max > -1 then 
		WriteLn (Next_Next_Max) 
	else WriteLn ('#'); 
end.
 Ответ:

Нашли ошибку в задании? Выделите фрагмент и нажмите Ctrl + Enter.