В массиве хранится рост 10 учеников. Составьте программу, которая определяет рост самого высокого ученика и его номер по списку.

Для решения задачи нужно пройти по массиву, сравнивая элементы, и запоминать максимальный рост и его позицию (номер ученика в списке).

Алгоритм:

1. Считаем, что первый ученик имеет максимальный рост.

2. Запоминаем его значение и номер (1).

3. Далее последовательно просматриваем остальных учеников.

4. Если найден рост больше текущего максимума — обновляем максимум и номер.

Пример программы (Pascal):

pascal
program MaxHeight;

var
  h: array[1..10] of integer;
  i, max, imax: integer;

begin
  { ввод массива }
  for i := 1 to 10 do
    readln(h[i]);

  { считаем, что первый — максимальный }
  max := h[1];
  imax := 1;

  { поиск максимального }
  for i := 2 to 10 do
    if h[i] > max then
    begin
      max := h[i];
      imax := i;
    end;

  writeln('Максимальный рост: ', max);
  writeln('Номер ученика: ', imax);
end.

Программа сначала считывает рост 10 учеников, затем проходит по массиву и находит наибольшее значение и его позицию.