Найти количество элементов массива, кратных 5, но отрицательных - QBasic
Формулировка задачи:
1задача.С клавиатуры вводится размерность одномерного массива. С помощью генератора случайных чисел заполнить массив целыми числами из [-100;100] и сообщить количество элементов кратных 5, но отрицательных. Распечатать массив в строчку.
2задача.Просмотрев все числа от -115 до 224 записать в массив те из них которые кратны. Распечатать полученный массив
Решение задачи: «Найти количество элементов массива, кратных 5, но отрицательных»
textual
Листинг программы
INPUT "vvedite a"; a: DIM b(339) FOR i = -115 TO 224 IF i MOD a = 0 THEN k = k + 1: b(k) = i: PRINT b(k); NEXT