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

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

Задать свой вопрос
1 ответ
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var a:=ReadSeqIntegerWhile(x-gt;xlt;gt;0).ToList;
var m:=a.Min;
a.Remove(m);
write(m*a.Min);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт