48

Напишите программу, которая находит произведение двух наибольших…

aleksey19881988 05 августа 2022

Напишите программу, которая находит произведение двух наибольших чисел из последовательности натуральных чисел. Программа получает на вход натуральныечисла, количество чисел неизвестно (но не менее двух), ввод последовательности заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Значения чисел не превышают 30000. Программа должна вывести одно число: произведение двух чисел, значения которых в данной последовательности наибольшие

категория: информатика

36

var temp,max,max2: integer; begin readln (temp); max: =0; max2: =0; while (temp<>0) do begin if (temp>max) then begin max2: =max; max: =temp; end else if (temp>max2) then max2: =temp; readln (temp); end; writeln (max*max2) end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...