Найти и отпечатать сумму положительных элементов после предпоследнего элемента равного 3
Категория: Basic
2012-02-21 16:22:22
Дан массив из 15 чисел: 7, 8, -4, 3, 5, 1, -2, 3, -4, 5, 4, 3, 0, -1, -5. Отпечатать исходный массив в строку.
code: #basic
DIM a(15) DATA 7, 8, -4, 3, 5, 1, -2, 3, -4, 5, 4, 3, 0, -1, -5 FOR i=1 TO 15 READ a(i) NEXT PRINT"massiv" FOR i=1 TO 15 PRINT a(i); NEXT PRINT FOR i=1 TO 15 IF a(i)=3 THEN k=k+1 NEXT FOR i=1 TO 15 IF a(i)=3 THEN m=m+1 IF m>=k-1 AND a(i)>0 THEN s=s+a(i) NEXT PRINT"s=";s-3
автор: кот Бегемот
Поделиться: