Урок 37-38
Тема: Действия с одномерными массивами. Нахождение максимального (минимального) элемента массива.
Цель: формировать у учащихся умение заполнять одномерные массивы, выводить их на экран и обрабатывать.
-
Проверка домашнего задания.
-
Самостоятельная работа
3.Новый материал.
Задача 1. Найти максимальный элемент массива.
Алгоритм.
min- минимальный элемент, l – его номер.
-
Кладем в min а[1], в l=1.
-
Сравниваем min с последующим элементом массива. Если а[i]< min, то в min кладем а[i], в l=i, в противном случае ничего не делаем.
-
Начать сначала, пока не кончится массив.
program massiv ;
uses crt;
type mas=array[1..1000] of integer;
var i,n,max, l: integer;
m:mas;
begin writeln ('введи число') ;
readln (n);
randomize;
for i:=1 to n do
begin
m[i]:=random(45)+1;
write(m[i], ' ');
end;
writeln;
max:=m[1]; l:=1;
for i:=2 to n do
if m[i]>max then begin max:=m[i]; l:=i; end;
write(max , ' его номер ', l );
end.
Задача 2. Определить на сколько максимальный элемент больше минимального.
4.Итог урока.
5.Домашнее задание.
-
Какое число в массиве встретится раньше: максимальное или минимальное.
-
В массиве хранится информация о росте 35 человек. Определить у скольких человек самый большой рост.