{* Задача144 *}

REM basic

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


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
End