Задача: найти минимальный косинус числа в массиве из 20-ти чисел.
Код qbasic:
[Ссылки могут видеть только зарегистрированные пользователи. ]
N = 20
[Ссылки могут видеть только зарегистрированные пользователи. ] A(N)
 
[Ссылки могут видеть только зарегистрированные пользователи. ] "Massiv: "
FOR I = 1 TO N
A(I) = [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * 100)
[Ссылки могут видеть только зарегистрированные пользователи. ] A(I);
NEXT I
 
COSA = [Ссылки могут видеть только зарегистрированные пользователи. ](A(1))
AI = 1
FOR I = 2 TO N
IF COSA > [Ссылки могут видеть только зарегистрированные пользователи. ](A(I)) THEN
COSA = [Ссылки могут видеть только зарегистрированные пользователи. ](A(I))
AI = I
[Ссылки могут видеть только зарегистрированные пользователи. ] IF
NEXT I
 
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] "a("; AI; ")="; A(AI)
[Ссылки могут видеть только зарегистрированные пользователи. ] "cos(a("; AI; "))="; COSA