Даны целые числа А…Ан. Получить сумму тех чисел данной последовательности которые нечетные и отрицательные — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
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

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

Leave a Comment