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

Question

Информатика

Максим

22 октября, 08:03

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

+5

Ответы (1)

Знаете ответ?

Алексюша · 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