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