Презентация, доклад на тему Максимум в одномерном массиве

другими элементами массива: для этого нужен цикл, начиная с 2 элемента массива до конечного.
Если найден элемент, больше чем принятый за максимальный, то производится замена максимального на этот элемент.

МАССИВА;

max:=a[1];
for i:=2 to n do
Begin
if a[i]>max then max:=a[i];
End;
write(‘max =’,max);
readln;
end.

раз по массиву и поставить счетчик для определения количества элементов, равных максимальному
2 способ
находить максимальный элемент и считать их количество

сразу ставим счетчик к:=1;
Просматриваем элементы массива, начиная со второго;
Если элемент оказывается больше максимума, то меняем максимум и считаем, что таких максимумов встретилось один - к:=1;
Иначе, если элемент равен максимуму, то счетчик максимумов увеличиваем на 1 - к:=к+1.

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);