Второй максимум - 2

@Cheys · Регистрация: 01.07.2018

Студворк — интернет-сервис помощи студентам

Задача №3071. Второй максимум - 2
Последовательность состоит из натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности, то есть элемента, который будет наибольшим, если из последовательности удалить наибольший элемент.

Числа, следующие за числом 0, считывать не нужно.

Входные данные
Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит).

Выходные данные
Выведите ответ на задачу.
Мой код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
   a,b,c:integer;
begin
read(b);
c:=0;
repeat
Read(a);
if a>b then
   begin
   c:=b;
   b:=a;
   end;
until a=0;
if c=0 then writeln(b)
else writeln(c);
end.

как я понимаю он не работает именно с отрицательными числами

@Puporev · 02.12.2018, 18:53

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a,b,mx1,mx2:integer;
begin
writeln('Введите не менее двух целых чисел:');
readln(mx1);
readln(a);
if a>mx1 then
 begin
  mx2:=mx1;
  mx1:=a;
 end
else mx2:=a;
repeat
readln(a);
if a>mx1 then
 begin
  mx2:=mx1;
  mx1:=a;
 end
else if a>mx2 then mx2:=a;
until a=0;
write('Второе максимальные=',mx2);
end.

@Cheys · 03.12.2018, 13:11 **[ТС]**

Puporev, все равно 5 тестов не проходит еще(из 51)

Добавлено через 17 секунд
Puporev, все равно 5 тестов не проходит еще(из 51)

@Puporev · 03.12.2018, 13:42

Я написал реальную программу, а Вы если пасетесь на всяких сайтах то и пишите по ихним правилам. Нужно знать полное и абсолютное условие задачи и правила сайта. Может в тех тестах первое или второе число 0.

@Cheys · 03.12.2018, 17:09 **[ТС]**

Если у вас программа рабочая, то она должна заканчиваться на 0 сразу, как там может быть их несколько

@Puporev · 03.12.2018, 17:13

Сообщение от Cheys

ак там может быть их несколько

Где это я писал? Я писал что в тестах 0 может стоять первым или вторым.

@Cheys · 03.12.2018, 17:16 **[ТС]**

Хорошо, тогда не можете подсказать как избавиться от данной проблемы?

@Puporev · 03.12.2018, 17:16

Нет не могу.

@Cheys · 03.12.2018, 17:17 **[ТС]**

И данный сайт informatics.msk, в бывшем informatics.mccme, достаточно известный

@Puporev · 03.12.2018, 17:18

Да ради Бога. Балдейте.

@mmmrrraaakkk · 06.12.2020, 12:08

а можно на питоне код написать? у меня времени нет, а сдавать через час

@Puporev · 06.12.2020, 12:12

Можно еслт обратитесь сюда
https://www.cyberforum.ru/python-beginners/

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Cheys 0 / 0 / 0 Регистрация: 01.07.2018 Сообщений: 7
	03.12.2018, 13:11 [ТС]
	Puporev, все равно 5 тестов не проходит еще(из 51) Добавлено через 17 секунд Puporev, все равно 5 тестов не проходит еще(из 51) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	03.12.2018, 13:42
	Я написал реальную программу, а Вы если пасетесь на всяких сайтах то и пишите по ихним правилам. Нужно знать полное и абсолютное условие задачи и правила сайта. Может в тех тестах первое или второе число 0. 0

@Cheys 0 / 0 / 0 Регистрация: 01.07.2018 Сообщений: 7
	03.12.2018, 17:09 [ТС]
	Если у вас программа рабочая, то она должна заканчиваться на 0 сразу, как там может быть их несколько 0

@Cheys 0 / 0 / 0 Регистрация: 01.07.2018 Сообщений: 7
	03.12.2018, 17:16 [ТС]
	Хорошо, тогда не можете подсказать как избавиться от данной проблемы? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	03.12.2018, 17:16
	Нет не могу. 0

@Cheys 0 / 0 / 0 Регистрация: 01.07.2018 Сообщений: 7
	03.12.2018, 17:17 [ТС]
	И данный сайт informatics.msk, в бывшем informatics.mccme, достаточно известный 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	03.12.2018, 17:18
	Да ради Бога. Балдейте. 0

@mmmrrraaakkk 0 / 0 / 0 Регистрация: 06.12.2020 Сообщений: 3
	06.12.2020, 12:08
	а можно на питоне код написать? у меня времени нет, а сдавать через час 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	06.12.2020, 12:12
	Можно еслт обратитесь сюда https://www.cyberforum.ru/python-beginners/ 0