Максимум в одномерном массиве

Вычисление наибольшего элемента массива самый большой max max max max Математическая модельФиксируем первый элемент как максимальный; Сравниваем этот максимум с другими элементами массива: для этого нужен цикл, начиная с 2 элемента массива до конечного.Если найден элемент, больше чем принятый за максимальный, то производится замена максимального на этот элемент. Program max;const n=10;var a:array [1..n] of integer;max, I : integer;beginВВОД ЭЛЕМЕНТОВ МАССИВА;max:=a[1];for i:=2 to n do Begin if a[i]>max then max:=a[i]; End;write(‘max =’,max);readln;end. Поиск количества элементов массива, равных максимальному1способНайти в массиве максимальный элементПройти второй раз по массиву и поставить счетчик для определения количества элементов, равных максимальному2 способнаходить максимальный элемент и считать их количество Идея решения для 2 способаФиксируем первый элемент массива как максимальный и сразу ставим счетчик к:=1;Просматриваем элементы массива, начиная со второго;Если элемент оказывается больше максимума, то меняем максимум и считаем, что таких максимумов встретилось один - к:=1;Иначе, если элемент равен максимуму, то счетчик максимумов увеличиваем на 1 - к:=к+1. Описание переменных и массива Ввод элементов массиваОбработка массива:mах:=а[1]; К:=1;For i:=2 to n do Begin If a[i]>max then Begin max:=a[i]; К:=1; End; Else If a[i]=max then К:=К+1; End;write(‘К =’,К); Поиск максимального элемента массива с заранее известным диапазоном значенийЕсли задан диапазон значений (от -500 до 500), то в качестве начального значения берут значение, которое меньше любого элемента массива (-501).Обработка массива содержит команды:mах:= -501;for i:=1 to n do Begin if a[i]>max then max:=a[i]; End;write(‘max =’,max);