Цикл WHILE для обработки последовательности чисел

@STMDASHA · Регистрация: 10.05.2014

Author24 — интернет-сервис помощи студентам

Напишите,пожалуйста,программу которая в последовательности целых чисел определяет СУММУ ДВУХ НАИБОЛЬШИХ и СУММУ ДВУХ НАИМЕНЬШИХ.Программа должна вывести две эти суммы в указанном порядке.Программа получает на вход целые числа,количество введенных чисел не известно,последлвательность чисел заканчивается числом 0(0-признак окончания ввода,не входит в последовательность).Количество чисел не превышает 1000.ВВеденные числа по модулю не превышают 30000.

@Good-Morning · 14.05.2014, 17:17

Что-то вроде того:

QBasic/QuickBASIC

a=-1
i=0
WHILE a<>0
  INPUT a
  IF i=0 THEN m1=a: m2=a: m3=a: m4=a: i=-1
  IF a<>0 THEN
    IF a>m3 THEN m3=a
    IF a>m4 THEN m3=m4: m4=a
    IF a<m2 THEN m2=a
    IF a<m1 THEN m2=m1: m1=a
  END IF
WEND
PRINT m3+m4, m1+m2

Добавлено через 8 минут
Хотя лучше, думаю, так:

QBasic/QuickBASIC

i=0
INPUT a
WHILE a<>0
  IF i=0 THEN m1=a: m2=a: m3=a: m4=a: i=-1
  IF a>m3 THEN m3=a
  IF a>m4 THEN m3=m4: m4=a
  IF a<m2 THEN m2=a
  IF a<m1 THEN m2=m1: m1=a
  INPUT a
WEND
PRINT m3+m4, m1+m2

@Good-Morning · 16.05.2014, 19:45

Гм... Нет, вот конечный вариант:

QBasic/QuickBASIC

DIM t(1 TO 1000)
i=1
INPUT a
t(i)=a
WHILE a<>0
    i=i+1
    INPUT a
    t(i)=a
WEND
i=i-1
FOR j=1 TO i
    FOR jj=j TO i
        IF t(j)>t(jj) THEN SWAP t(j), t(jj)
    NEXT jj
NEXT j
IF i=0 THEN PRINT 0, 0
IF i=1 THEN PRINT t(1)*2, t(1)*2
IF i>1 THEN PRINT t(1)+t(2), t(i)+t(i-1)

Без массива не получилось

@STMDASHA 0 / 0 / 0 Регистрация: 10.05.2014 Сообщений: 2
		1
	Цикл WHILE для обработки последовательности чисел 14.05.2014, 14:56. Показов 2417. Ответов 2 Метки нет (Все метки) Напишите,пожалуйста,программу которая в последовательности целых чисел определяет СУММУ ДВУХ НАИБОЛЬШИХ и СУММУ ДВУХ НАИМЕНЬШИХ.Программа должна вывести две эти суммы в указанном порядке.Программа получает на вход целые числа,количество введенных чисел не известно,последлвательность чисел заканчивается числом 0(0-признак окончания ввода,не входит в последовательность).Количество чисел не превышает 1000.ВВеденные числа по модулю не превышают 30000. 0

	16.05.2014, 19:45

Цикл WHILE для обработки последовательности чисел

Решение