{* Задача71 *}

REM basic

' Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Найти сумму и количество всех нечетных положительных чисел. Так, если А={9,4,–3,0,5,1,–7}, результат: сумма =9+5+1=15, количество =3.


INPUT"vvedite razmer massiva ",n
Dim a(n)
RANDOMIZE TIMER
For i=1 To n
a(i)=INT(RND*21)-10
Next
PRINT"ishodnyj massiv x"
For i=1 To n
PRINT a(i);
Next
PRINT
For i=1 To n 
If (a(i)>0)And(a(i)Mod 20) Then sum=sum+a(i):kol=kol+1
Next
PRINT"summa nechetnyh polojitelnyh chisel=";sum
PRINT"kolichestvo nechetnyh polojitelnyh chisel=";kol
End