Прохор
7 год назад
В массиве b1,b2....b45 найти количество чисел равных 3,5
ОТВЕТЫ
Kiasov
Aug 14, 2019
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
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
156
Смежные вопросы:
