Дан массив из 14 элементов.Найти сумму элементов равных по абсолютной величине 19 — QBasic(Бейсик)

1
2
3
4
5
6
7
8
9
cls
dim a(14)
for i = 1 to 14
cls
? "a("; i; ")=";
input a(i)
if abs(a(i))=19 then k=k+a(i)
next i
? k

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

Leave a Comment