Найти сумму положительных и отрицательных элементов массива - QBasic
Формулировка задачи:
Ввести с клавиатуры массив(8 чисел)
а)Вывести массив на экран в строку
б)найти сумму положительных элементов
в)найти количество отрицательных элементов
г)вывести на экран элементы,стоящие на четных местах
д)Найти минимальный элемент и поменять местами с последним
е)Отрицательные элементы заменить 0
Решение задачи: «Найти сумму положительных и отрицательных элементов массива»
textual
Листинг программы
ввод и вывод на экран массива есть в шапке s=0 k=0 FOR i=1 TO 8 IF a(i)>0 THEN s=s+a(i) IF a(i)<0 THEN k=k+1 IF i MOD 2 = 0 THEN PRINT a(i) NEXT i PRINT "summa elementov";s PRINT "otricatelnih elementov";k это а,б,в,г
Объяснение кода листинга программы
- В начале кода объявлены переменные: массив a(8), переменные s и k, которые будут использоваться в дальнейшем. Значение переменной s изначально равно 0, а значение переменной k равно 0.
- Далее идет цикл for, который выполняется 8 раз, по каждому элементу массива a.
- Внутри цикла проверяется условие: если элемент массива a(i) больше 0, то значение переменной s увеличивается на значение элемента массива a(i).
- Если условие выполняется, то значение переменной k увеличивается на 1.
- Если i MOD 2 = 0, то значение элемента массива a(i) выводится на экран.
- После завершения цикла, выводится значение переменной s, которое представляет собой сумму всех положительных элементов массива.
- Затем выводится значение переменной k, которое представляет собой количество отрицательных элементов массива.