Найти максимальное значение в одномерном массиве(A).Выстроить метод( блок-схему) и

DIM n, max AS INTEGER
INPUT "Введите размерность массива", n
DIM A(1 TO n) as INTEGER
FOR i = 1 TO n
INPUT "Заполните массив", A(i)
NEXT i
max = A(1)
FOR i = 1 TO n
IF A(i) gt; max THEN max = A(i)
NEXT i
PRINT max


Представим, что наибольшее значение - 1-ый элемент массива. Если какой-или иной элемент массива больше максимального, то мы присваиваем переменной max значение этого элемента.