Найти сумму двух наибольших и двух наименьших чисел

16.05.2014, 15:51. **Показов** 4734. **Ответов** 2

Напишите программу, которая в последовательности целых чисел определяет сумму двух наибольших и сумму двух наименьших. Программа вывести две эти суммы в указанном порядке. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (т.е. не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000.

Помогите пожалуйста

Программа должна быть составлена с циклом WHILE...WEND а я немного запуталась(

@Good-Morning · 16.05.2014, 18:25

Вот.

@~~gehh~~ · 16.05.2014, 18:31

Вот код, решающий вашу задачу
(программа проверена)

QBasic/QuickBASIC

DEFLNG A-D, I
CLS
PRINT "Vvedite chislo"
PRINT "0 - Konec Vvoda"
DIM b(1000)
 
a = 1
i = 0
WHILE a <> 0
   INPUT a
   b(i) = a
   i = i + 1
WEND
 
c1 = b(0)
c2 = b(1)
d1 = b(0)
d2 = b(1)
 
IF c1 < c2 THEN SWAP c1, c2
IF d1 > d2 THEN SWAP d1, d2
i = 2
WHILE b(i) <> 0
   IF c1 < b(i) THEN
      c2 = c1
      c1 = b(i)
   ELSEIF c2 < b(i) THEN
      c2 = b(i)
   END IF
 
   IF d1 > b(i) THEN
      d2 = d1
      d1 = b(i)
   ELSEIF d2 > b(i) THEN
      d2 = b(i)
   END IF
   i = i + 1
WEND
PRINT "SUMMA MAX = "; c1 + c2
PRINT "SUMMA MIN = "; d1 + d2
END

Удачи вам!

Stapll
		1
	Найти сумму двух наибольших и двух наименьших чисел 16.05.2014, 15:51. Показов 4734. Ответов 2 Метки нет (Все метки) Напишите программу, которая в последовательности целых чисел определяет сумму двух наибольших и сумму двух наименьших. Программа вывести две эти суммы в указанном порядке. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (т.е. не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30 000. Помогите пожалуйста Программа должна быть составлена с циклом WHILE...WEND а я немного запуталась(

@Good-Morning 1045 / 315 / 74 Регистрация: 13.07.2013 Сообщений: 1,270
	16.05.2014, 18:25	2
	Вот. 0

Опции темы

Найти сумму двух наибольших и двух наименьших чисел

Решение