Суммировать числа до достижения значения >= 15. Напечатать сумму и сделать ее равной 0. Опять суммировать до >=15. Снова напечатать сумму и т.д до конца массива. Если сумма оказалась меньше, печатать фразу «Сумма<15 - QBasic(Бейсик)

disel
1
Имеется массив A из N произвольных чисел A(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу:
1
2
3
4
5
6
7
8
9
10
11
12
13
INPUT "vvedite kolichestvo elementov ", n
DIM a(n)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO n
    a(i) = INT(RND * 20) - 10
    PRINT a(i);
NEXT
FOR i = 1 TO n
    s = s + a(i)
    IF s >= 15 THEN PRINT "summa="; s: s = 0: f = 1
NEXT
IF f = 0 THEN PRINT " summa<15"

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment