Дан массив из 12 чисел увеличить на 3 единицы все числа, расположенные до первого числа, равного 10

Категория: Basic
2011-11-08 15:52:43
code: #basic
DIM a(12)
FOR i = 1 TO 12
INPUT "vvedite element ", a(i)
NEXT
PRINT "massiv"
FOR i = 1 TO 12
PRINT a(i); " ";
NEXT
PRINT
FOR i = 1 TO 10
IF a(i) =10 THEN EXIT FOR ELSE a(i)=a(i)+3
NEXT
PRINT "novyy massiv"
FOR i = 1 TO 12
PRINT a(i); " ";
NEXT

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: массив, одномерный массив, студенты, qbasic, увеличить числа