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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
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