Question

Составить блок-схему алгоритма и программу на алгоритмическом языке программирования БЕЙСИК обработки одномерного массива. Заполнение массива элементами организовать путем ввода с клавиатуры

Answer 1

Dim n As Integer, i As Integer, imin As Integer
Input "n=",n
ReDim a(1 To n) As Integer
Input "";a(1)
imin = 1
For i = 2 To n
    Input "";a(i)
    If a(i) < a(imin) Then imin = i
Next i
Print "a(";imin;")=";a(imin)