1 2 3 4 5 6 7 8 9 10 | dim a( 8 ) print "massiv" for i= 1 to 8 a(i)=int(rnd* 21 )- 10 print a(i); if a(i)> 0 then kol=kol+ 1 :s=s+a(i) next print print"kolichestvo=";kol print "summa=";s |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 6 7 8 9 10 | dim a( 8 ) print "massiv" for i= 1 to 8 a(i)=int(rnd* 21 )- 10 print a(i); if a(i)> 0 then kol=kol+ 1 :s=s+a(i) next print print"kolichestvo=";kol print "summa=";s |
Тестирование выполнено в программе QB64 ( Скачать )