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

Question

Информатика

Клариса

16 марта, 21:04

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

+1

Ответы (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