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 ( Скачать )
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 ( Скачать )