Дана последовательность чисел а1,а2. Выяснить, будет ли она возрастать - VB

Формулировка задачи:

помогите решить))) 1)а1,а2...аn. а i-тое и а i+1(СРАВ) наименьшее записывается на i-тое место и так сравнивается пока все элементы не выстрояться в нужном порядке. 2)дана последовательность действ.чисел а1,а2,выяснить будет ли она возрастать (или убывать).

Решение задачи: «Дана последовательность чисел а1,а2. Выяснить, будет ли она возрастать»

textual
                            Листинг программы 
                        

                            dim m(1 to 11)
for i = 1 to 10
m(i) = fix(rnd(1) * 200) + 50
next i
x = 50
for i = 1 to 10
x  = x + 30
next i
for i= 1 to 9
for j = 1 to 9
if m(j) > m(j + 1) then
r = m(j)
m(j ) = m(j + 1)
m(j + 1) = r
end if
next j
next i
x = 50
for i = 1 to 10print m(i);
x = x + 30
next i
                        

Оцени полезность:

9 голосов , оценка 3.778 из 5

Похожие ответы