Разбор добавил Владислав Постика

в max:=A[1]; пробегаем циклом с 2 до N и проверяем если A[i]>max то max:=A[i]; в конце выводим max