Найти минимальный элемент массива - QBasic (27723)

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

1) Минимальный элемент массива (у меня то получилось, но если пишу -1,-5, выдает -1) 2) сумму элементов массива, расположенных между первыми и последними позитивными позитивными элементами. 3) Переделать массив таким образом, чтоб с начала расположились все элементы равные нулю, потом все остальные. Прошу помочь с 3,и сказать ошибку в первом, почему так может быть. basic 256

Решение задачи: «Найти минимальный элемент массива»

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

                            DIM a(n)
FOR i=1 TO n
PRINT "input a#"n;
INPUT a(n)
NEXT i
shift=1
FOR i=1 TO n
IF a(i)=0 THEN SWAP a(shift), a(i): shift=shift+1
NEXT i
END
                        

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

6 голосов , оценка 4.167 из 5

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