Суммировать числа до тех пор, пока не встретится число 2. Напечатать получившуюся сумму. Если двойка не встретилась, напечатать текст “Двойки нет”. Н — QBasic(Бейсик)

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

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

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

Leave a Comment