0.1. Поиск максимального из чисел
Задача программисту: Найти максимальное из вводимых в компьютер чисел.
Задача рыбаку: Принести домой самую большую из выловленных рыб.
Решение рыбака: Рыбак приготовил для самой большой рыбы пустое ведро. Первую пойманную рыбу рыбак не глядя бросает в это ведро. Каждую следующую рыбу он сравнивает с той, что в ведре. Если она больше, то он бросает ее в ведро, а ту, что была там раньше, выпускает в реку.
Решение программиста: Программист приготовил для самого большого числа ячейку и придумал ей название, скажем, max. Первое число программист не глядя вводит в эту ячейку. Каждое следующее число (назовем его chislo) он сравнивает с max. Если оно больше, то он присваивает переменной max значение этого числа.
Напишем программу для определения максимального из 10 вводимых чисел:
VAR i, chislo, max :Integer;
BEGIN
ReadLn(max); {первую рыбу - в ведро}
for i:=2 to 10 do begin {ловим остальных рыб:}
ReadLn(chislo); {поймали очередную рыбу}
if chislo>max then max:=chislo {и если она больше той, что в ведре, бросаем ее в ведро }
end {for};
WriteLn(max) {несем самую большую рыбу домой}
END.
Задание 57: Найти из N чисел минимальное. Каким по порядку было введено минимальное число? Указание: для номера минимального числа тоже нужно отвести специальную ячейку.
Задание 58: У вас есть данные о росте ваших одноклассников. Правда ли, что рост самого высокого отличается от роста самого низкого больше, чем на 40 см.?
Скачано с www.znanio.ru
Поиск максимального из чисел
© ООО «Знанио»
С вами с 2009 года.
