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

Dim n As Integer, i As Integer, imin As IntegerInput "n=",nReDim a(1 To n) As IntegerInput "";a(1)imin = 1For i = 2 To n    Input "";a(i)    If a(i) < a(imin) Then imin = iNext iPrint "a(";imin;")=";a(imin)