Найти сумму четырёх наибольших и четырёх наименьших элементов массива

@sledfed · Регистрация: 27.12.2013

Дан массив из 25 элементов найти сумму 4 наибольших х четырех наименьших элементов
Результат распечатать в виде:
Массив:
Сумма наибольших =
Сумма наименьших =

echs · 10.10.2016, 12:25

QBasic/QuickBASIC

CLS
RANDOMIZE TIMER
n = 25
DIM x(1 TO n)
 
FOR i = 1 TO n
   x(i) = INT(30 * RND)
   PRINT x(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
   IF x(i) > x(j) THEN SWAP x(i), x(j)
NEXT j, i
 
s1 = x(22) + x(23) + x(24) + x(25)
s2 = x(1) + x(2) + x(3) + x(4)
PRINT "SUMMA MAX ="; s1
PRINT "SUMMA MIN ="; s2
END

@sledfed 0 / 0 / 0 Регистрация: 27.12.2013 Сообщений: 34
		1
	Найти сумму четырёх наибольших и четырёх наименьших элементов массива 10.10.2016, 00:17. Показов 1593. Ответов 1 Метки нет (Все метки) Дан массив из 25 элементов найти сумму 4 наибольших х четырех наименьших элементов Результат распечатать в виде: Массив: Сумма наибольших = Сумма наименьших = __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти сумму четырёх наибольших и четырёх наименьших элементов массива

Решение