#1 05.03.11 16:07
прошу помощи [Basic]
Вобщем дело в следующем. Нужно решить задачу в QBasic, школьная программа 11 класс.
Дан массив из 10 натуральных случайных чисел. Нужно найти сумму тех елементов массива, которые кратны 5. нужно написать исходник этой программы.
Для праграмистов которые шарят это минутное дело. Помогите пожалуйста кому не сложно. буду очень благодарен. заранее спасибо
Исправлено T.Chaser (05.03.11 16:15)
Offline
#2 05.03.11 16:39
Re: прошу помощи [Basic]
1 CLS
10 REM сумма чисел кратных пяти в массиве
20 INPUT "введите 10 чисел через запятую "; a(1), a(2), a(3), a(4), a(5), a(6), a(7), a(8), a(9), a(10)
25 b = 0
30 FOR i = 1 TO 10
40 IF a(i) MOD 5 = 0 THEN b = b + a(i)
50 NEXT i
60 PRINT b
300 END
Offline
