Найти максимальное значение в одномерном массиве(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) > max THEN max = A(i) NEXT i PRINT max Предположим, что максимальное значение - первый элемент массива. Если какой-либо другой элемент массива больше максимального, то мы присваиваем переменной max значение этого элемента.