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

Формулировка задачи:

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

Код к задаче: «Найти сумму двух наибольших и двух наименьших чисел - QBasic»

textual
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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ