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

• 1 слайд

  Вычисление наибольшего
  элемента массива
  
  

• 2 слайд

• 3 слайд

  самый большой
  

• 4 слайд

  max
  

• 5 слайд

• 6 слайд

• 7 слайд

  max
  

• 8 слайд

  max
  

• 9 слайд

  max
  

• 10 слайд

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

• 11 слайд

  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.
  

• 12 слайд

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

• 13 слайд

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

• 14 слайд

  Описание переменных и массива
  Ввод элементов массива
  Обработка массива:
  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(‘К =’,К);
  
  
  

• 15 слайд

  Поиск максимального элемента массива с заранее известным диапазоном значений
  Если задан диапазон значений (от -500 до 500), то в качестве начального значения берут значение, которое меньше любого элемента массива (-501).
  Обработка массива содержит команды:
  
  mах:= -501;
  for i:=1 to n do
  Begin
  if a[i]>max then max:=a[i];
  End;
  write(‘max =’,max);