FAQ Infinity

В массиве хранится информация о росте 35 человек

Задача заключается в определении количества людей с самым большим ростом среди 35 человек, данные о котором хранятся в массиве.

Решение с использованием языка программирования Pascal

Для решения данной задачи можно воспользоваться языком программирования Pascal. Воспользуемся следующим алгоритмом:

  1. Создадим массив "рост" типа integer с размерностью 35 элементов и заполним его данными о росте каждого человека.

  2. Инициализируем переменные "максимальный_рост" и "количество_людей" оба равными нулю.

  3. Проходим по всем элементам массива "рост" с помощью цикла for и сравниваем каждый элемент с переменной "максимальный_рост". Если текущий элемент больше "максимального_роста", то обновляем значение "максимального_роста" и сбрасываем значение "количество_людей" на 1. Если текущий элемент равен "максимальному_росту", то увеличиваем значение "количество_людей" на 1.

  4. Выводим на экран значение переменной "количество_людей". Это и будет ответом на задачу.

program MaxHeight;

var
  heights: array[1..35] of integer;
  maxHeight, numOfPeople, i: integer;

begin
  // Заполнение массива данными о росте
  heights[1] := 160;
  heights[2] := 175;
  heights[3] := 170;
  // Заполнение остальных элементов массива
  
  // Инициализация переменных
  maxHeight := 0;
  numOfPeople := 0;
  
  // Поиск максимального роста и подсчет количества людей
  for i := 1 to 35 do
  begin
    if heights[i] > maxHeight then
    begin
      maxHeight := heights[i];
      numOfPeople := 1;
    end
    else if heights[i] = maxHeight then
    begin
      numOfPeople := numOfPeople + 1;
    end;
  end;
  
  // Вывод количества людей с максимальным ростом
  writeln('Количество людей с максимальным ростом:', numOfPeople);
end.

После выполнения программы будет выведено количество людей с самым большим ростом, а именно: "Количество людей с максимальным ростом: X", где X - число, определяющее количество людей.