В массиве b1,b2....b45 найти количество чисел равных 3,5

Question

В массиве b1,b2....b45 найти количество чисел равных 3,5

Answer 1

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