В массиве найти максимум, минимум и сумму элементов до максимума. - QBasic
Формулировка задачи:
Дан массив 15 элементов. Найти у него максимум, минимум и сумму элементов до максимума.
Решение задачи: «В массиве найти максимум, минимум и сумму элементов до максимума.»
textual
Листинг программы
DATA 1, 8, 10, 15, 18, 6, 3, 8, 11, 2, 5, 13, 7, 4, 9 CLS DIM a(14) FOR i = 0 TO 14 ' Заполним массив READ a(i) NEXT min = a(0): max = min FOR i = 0 TO 14 ' Найдём минимум & максимум s = s + a(i) ' и сумму IF a(i) < min THEN min = a(i) IF a(i) > max THEN max = a(i) NEXT sum = s - max PRINT "Max ="; max ' Результат на экран PRINT "Min ="; min PRINT "Sum ="; sum
Объяснение кода листинга программы
В этом коде:
- Создаётся массив a(14) с помощью команды DIM a(14).
- Заполняется массив с помощью цикла FOR и команды READ a(i).
- Инициализируются переменные min и max значением первого элемента массива a(0).
- Суммируются все элементы массива с помощью цикла FOR и команды s = s + a(i).
- Переменной min присваивается минимальное значение из массива, а переменной max — максимальное значение с помощью условных операторов IF.
- Находится сумма всех элементов массива, кроме максимального, с помощью формулы s = sum — max.
- Выводятся на экран значения переменных max, min и sum с помощью команды PRINT.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д