1массив переменных a(10) заполнить последовательностью - вопрос №83908110110 от shkuratov89525510021 05.01.2021 20:46

Question

Информатика: 1массив переменных a(10) заполнить последовательностью чисел от 1-10, затем с минимального количества циклов отсортировать его по убыванию. 2написать программу, которая определяет количество нечетных чисел кратных 3 наотрезке чисел от a до b cls a=10 : b= 150 ‘ а и в могут быть любыми. ‘ продолжить программу qbasik

shkuratov89525510021 · Answer

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