На числовой прямой даны три отрезка ​

Программа на qbasic 7.01 dim a(20) s = 0 for i = 1 to 20     input a(i)     s = s + a(i) next i s = s / 20 for i = 1 to 20     if a(i) < 0 then a(i) = s     print a(i); " "; next i print end тестовое решение: ? 5 ? 8 ? -3 ? 7 ? 11 ? -12 ? 6 ? 0 ? -13 ? 9 ? 11 ? 0 ? 7 ? -4 ? 1 ? 9 ? 4 ? 5 ? -11 ? 3   5    8    2.15    7    11    2.15    6    0    2.15    9    11    0    7    2.15    1    9   4    5    2.15    3 чтобы продолжить, нажмите любую клавишу

Программа шифровки: data "ауоыэяюёие" data "бвгджзклмнпрстфхцчшщ" data "ъйь" dim s10 as string, s20 as string, s3 as string dim i as integer dim s as string, t as string cls read s10, s20, s3 randomize timer input "введите фразу: ", s t = "" for i = 1 to len(s)     t = t + mid$(s, i, 1)     t = t + mid$(s10, int(10 * rnd + 1), 1)     t = t + mid$(s20, int(20 * rnd + 1), 1)     t = t + mid$(s3, int(3 * rnd + 1), 1) next i print t end программа дешифровки: dim s as string, t as string, i as integer cls input "введите фразу: ", s t = "" for i = 1 to len(s) step 4     t = t + mid$(s, i, 1) next i print t end