Сформулировать из 8 натуральных случайных чисел в диапазоне от -10 до 10.найти кол-во положительных элементов массива и их сумму- QBasic(Бейсик)

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 ( Скачать )

Leave a Comment