Дан массив из 25 элементов, найти сумму четырех наибольших и четырех наименьших элементов - QBasic

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

1)Дан массив из 25 элементов, найти сумму четырех наибольших и четырех наименьших элементов. Результат записать в виде: -массив -сумма наибол. = -сумма наимен. = 2)Дан массив из n элементов. Определить максимальный элемент и его индекс, если максимальный элемент массива более чем вдвое превышает Ai=Ai^2 3)Пересчитать в массив А, состоящий из N элементов, элементы массива B(N) в обратном порядке. Результат записать в виде: -Исходный массив: -Число элементов: -Новый массив:

Решение задачи: «Дан массив из 25 элементов, найти сумму четырех наибольших и четырех наименьших элементов»

Листинг программы

INPUT "VVEDITE KOLI4ESTVO ELEMENTOV V MASSIVE-";N
DIM A(N)
DIM B(N)
FOR I=1 TO N
INPUT "VVEDITE ELEMENT MASSIVA-";B(I)
A(N+1-I)=B(I)
NEXT
PRINT "ISHODNIY MASSIV:"
FOR I=1 TO N
PRINT B(I)
NEXT
PRINT "KOLI4ESTVO ELEMENTOV-";N
PRINT "POLU4ENNIY MASSIV:"
FOR I=1 TO N
PRINT A(I)
NEXT

Объяснение кода листинга программы

Задается количество элементов в массиве с помощью функции N.
Создаются два массива A и B размером N.
В цикле FOR с помощью функции INPUT в массив B записываются значения элементов массива.
В массиве A элементы записываются в обратном порядке с помощью формулы A(N+1-I)=B(I).
Выводится исходный массив B с помощью цикла FOR и функции PRINT.
Выводится количество элементов в массиве с помощью функции N.
Выводится массив A с помощью цикла FOR и функции PRINT.