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