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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS : INPUT "Vvedite N : ", n
DIM A(n) AS INTEGER
  '  Ввод массива с клавиатуры
 FOR i = 1 TO n
  PRINT "Vvedite chislo"; i; : INPUT ": ", A(i)
 NEXT
  '  Подсчет суммы
 FOR i = 1 TO n
  IF A(i) = 2 GOTO 5
  S = S + A(i)
 NEXT
  ' Вывод результата
PRINT "Dvoiki net...": END
5 PRINT "Summa:"; S
1
2
3
4
5
6
7
8
9
10
11
12
13
14
CLS
RANDOMIZE TIMER
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n: a(i) = FIX(RND * 101 - 50): NEXT
DO
    j = j + 1
    IF a(j) <> 2 THEN s = s + a(j) ELSE w = 1
LOOP UNTIL j = n OR w = 1
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
IF w = 1 THEN PRINT "s="; s ELSE PRINT "dvoiki net"

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

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

Leave a Comment