Дан массив из 12-ти чисел. найти сумму чисел данного массива, расположенных после последнего числа, большего 41- QBasic(Бейсик)

dim a(12)
for i=1 to 12
input "vvedite element ",a(i)
if a(i)=41 then k=i
next
if k=0 then 
print "chisel=41 net" 
else
for i=k+1 to 12
s=s+a(i)
next
print"s=";s
end if

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment