Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Напечатать получившуюся сумму. Если двойка не встретилась, напечатать текст “Двойки нет”. Например, если А={7,4,–3,2,5,–2,1}, результат: 7+4–3=8.- Basic(Бейсик)

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"

Leave a Comment