В массиве хранится информация о росте 35 человек
Задача заключается в определении количества людей с самым большим ростом среди 35 человек, данные о котором хранятся в массиве.
Решение с использованием языка программирования Pascal
Для решения данной задачи можно воспользоваться языком программирования Pascal. Воспользуемся следующим алгоритмом:
-
Создадим массив "рост" типа integer с размерностью 35 элементов и заполним его данными о росте каждого человека.
-
Инициализируем переменные "максимальный_рост" и "количество_людей" оба равными нулю.
-
Проходим по всем элементам массива "рост" с помощью цикла for и сравниваем каждый элемент с переменной "максимальный_рост". Если текущий элемент больше "максимального_роста", то обновляем значение "максимального_роста" и сбрасываем значение "количество_людей" на 1. Если текущий элемент равен "максимальному_росту", то увеличиваем значение "количество_людей" на 1.
-
Выводим на экран значение переменной "количество_людей". Это и будет ответом на задачу.
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 - число, определяющее количество людей.