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

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

в избранное

freiherr

28 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Вводится с клавиатуры число Х. Если Х

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

Вычислить произведение первых 10 натуральных чисел. Паскаль, помогите срочно!

Упростить выражение: X v X ^ Y v X ^ Z v X ^ Y ^ Z помогите пожалуйста решить*заранееспасибо: З

Помогиите! Нужно написать программу которая определяет является ли сумма цифр двухзначного числачетной

Составить программу для нахождения произведения четных чисел из диапозона от 3 до 17. С подробнымрешением!

ПРИВЕДИТЕ ПРИМЕРЫ ЭЛЕМЕНТНЫЙ СОСТАВ ОБЬЕКТА!?

Объем дискеты размером 3,5 дюйма равен а) 1,44 Мб б) 1,24 Мб в) 4,11 Мб

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: