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

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