Возвести в квадрат все отрицательные элементы массива
Категория: Basic
2011-09-20 16:24:26
code: #basic
CLS INPUT "kol-vo elementov"; n DIM a(n) FOR i = 1 TO n INPUT a(i) NEXT CLS FOR i = 1 TO n PRINT a(i); NEXT PRINT PRINT "noviy massiv:" FOR i = 1 TO n IF a(i) < 0 THEN a(i) = a(i) ^ 2 PRINT a(i); NEXT
автор: -immortal-
Поделиться: