В массиве b1,b2....b45 найти количество чисел равных 3,5
В массиве b1,b2....b45 найти количество чисел равных 3,5
Гость
Ответ(ы) на вопрос:
Гость Dim b(45)
for i=1 to 45
print "b(";i;")= ";
input b(i)
next i
for i=1 to 45
if b(i)=3.5 then
s=s+1
end if
next i
print "kolichestvo: "; s
Не нашли ответ?
Похожие вопросы