Решить задачу на Паскале, используя циклы. Вводится последовательность целых чисел, не превосходящих по модулю 10^9, и при этом не равных нулю. Ноль – признак конца. Вы- дайте три максимальных числа этой последовательности, не игнорируя дубликаты (то есть, три числа в ответе могут совпадать). Гарантирует- ся, что в последовательности есть как минимум три содержательных элемента.
Решить задачу на Паскале, используя циклы. Вводится последовательность целых чисел, не превосходящих по модулю 10^9, и при этом не равных нулю. Ноль – признак конца. Вы- дайте три максимальных числа этой последовательности, не игнорируя дубликаты (то есть, три числа в ответе могут совпадать). Гарантирует- ся, что в последовательности есть как минимум три содержательных элемента.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
program MaxNumbers;
var
num, max1, max2, max3: integer;
begin
max1 := -1000000000;
max2 := -1000000000;
max3 := -1000000000;
repeat
if num > max1 thenread(num);
begin
max3 := max2;
max2 := max1;
max1 := num;
end
else if num > max2 then
begin
max3 := max2;
max2 := num;
end
else if num > max3 then
max3 := num;
until num = 0;
writeln(max1, ' ', max2, ' ', max3);
end.