1массив переменных a(10) заполнить последовательностью чисел от 1-10, затем с минимального количества циклов отсортировать его по убыванию. 2написать программу, которая определяет количество нечетных чисел кратных 3 на
отрезке чисел от a до b cls a=10 : b= 150 ‘ а и в могут быть любыми. ‘ продолжить программу qbasik
qbasic не знаю, знаю только вижуал бэйсик
for i = 1 to 10
a(i) = i
Next i
for i = 1 to 5
b = a(10+1-i)
a(10+1-i) = a(i)
a(i) = b
next i
s = 0;
for i = a to b
if (i mod 2 =1) and (i mod 3 = 0) then
s = s + 1
end if
next i