Даны целые числа А...Ан. Получить сумму тех чисел данной последовательности которые нечетные и отрицательные
Категория: Basic
2011-11-11 16:22:16
code: #basic
INPUT n DIM a(n) RANDOMIZE TIMER FOR i=1 TO n a(i)=INT(RND*20)-10 PRINT a(i);" "; NEXT FOR i=1 TO n IF (a(i)<0)AND(a(i)MOD 2=1)THEN s=s+a(i) NEXT PRINT s
автор: кот Бегемот
Поделиться: