Цель урока: изучить алгоритм поиска максимального (минимального) элемента в массиве.
Пример 1. Программа для нахождения максимального элемента массива и его порядкового номера.
var
a: array[1..20] of integer;
k, max, i: integer;
begin
for i := 1 to 20 do
read(a[i]); //ввод элементов массива с клавиатуры
max := a[1]; //начальное значение максимального элемента
k := 1; //начальное значение индекса максимального элемента
for i := 2 to 20 do
if a[i] > max then
begin
max := a[i]; //новое значение переменной max
k := i; //новое значение индекса
end;
writeln('Максимальный элемент = ', max);
writeln('Номер максимального элемента = ', k);
end.
Задания по теме урока
Задание 1. Составьте программу, которая находит минимальный элемент массива. Массив a[1..10] задан генератором случайных числе на промежутке от -15 до 15. На экран вывести сам массив, а также минимальный элемент массива.
Задание 2. Массив содержит результаты соревнований по прыжкам в длину в сантиметрах (случайные числа в диапазоне от 280 до 370). Количество спортсменов вводится с клавиатуры. Составьте программу, которая определяет номер и результат победителя.
Задание 3. Синоптики фиксировали дневные температуры в течение месяца (случайные числа от 20 до 30). Составьте программу для нахождения минимальной и максимальной температуры за месяц.
Задание 4. В массиве хранится информация о стоимости автомобилей. Определить стоимость самого дорогого автомобиля и его номер в массиве. Если есть несколько таких автомобилей, то выведите все номера. Количество элементов массива и сами элементы массива ввести с клавиатуры.
Указание. В программе будет два цикла обработки элементов массива: первый находит значение максимального элемента, второй – проверяет, есть ли еще элементы с максимальным значением.
Дополнительное задание
Задан массив из слов. Найдите в нем самое короткое слово, начинающееся с прописной буквы.
Указание. Обратите внимание на коды символов таблицы ASCII, а также на процедуры и функции для работы с символьными и строковыми величинами.
Домашнее задание
§ 6.1 учебного пособия, ответить на вопросы после параграфа.
Форма отправки файлов
Форма видна только зарегистрированным пользователям.