В одномерном массиве вычислить разницу между максимальным и минимальным элементами - Pascal ABC
Формулировка задачи:
Дан массив из 15 целых чисел из диапазона [-10, 10). Вычислите в нем разницу между максимальным и минимальным элементами.
Решение задачи: «В одномерном массиве вычислить разницу между максимальным и минимальным элементами»
textual
Листинг программы
var a:array[1..15] of real; i:integer; min,max,delta:real; begin writeln('Введите числа в диапазоне [-10,10)'); for i:=1 to 15 do readln(a[i]); min:=0; max:=a[1]; for i:=1 to 15 do begin if min>a[i] then min:=a[i]; if max<a[i] then max:=a[i]; end; delta:=max-min; write('max-min=',delta); end.
Объяснение кода листинга программы
- Создается переменная
a
типаarray[1..15] of real
, которая будет хранить введенные пользователем числа. - Задаются три переменные:
min
,max
иdelta
типаreal
. Переменнаяmin
будет хранить минимальное значение из массиваa
, переменнаяmax
- максимальное, а переменнаяdelta
- разницу между ними. - Выводится сообщение для запроса ввода чисел в диапазоне [-10,10).
- С помощью цикла
for
происходит чтение 15 чисел из массиваa
. - Внутри цикла проверяется, является ли текущее значение
a[i]
меньше минимального значенияmin
. Если да, тоmin
обновляется значениемa[i]
. - Также проверяется, является ли текущее значение
a[i]
больше максимального значенияmax
. Если да, тоmax
обновляется значениемa[i]
. - После завершения внутреннего цикла, переменная
min
содержит минимальное значение, а переменнаяmax
- максимальное. - Вычисляется разница между
max
иmin
и сохраняется в переменнуюdelta
. - Выводится сообщение с результатом вычисления
max-min=delta
.