В одномерном массиве вычислить разницу между максимальным и минимальным элементами - 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.

Объяснение кода листинга программы

  1. Создается переменная a типа array[1..15] of real, которая будет хранить введенные пользователем числа.
  2. Задаются три переменные: min, max и delta типа real. Переменная min будет хранить минимальное значение из массива a, переменная max - максимальное, а переменная delta - разницу между ними.
  3. Выводится сообщение для запроса ввода чисел в диапазоне [-10,10).
  4. С помощью цикла for происходит чтение 15 чисел из массива a.
  5. Внутри цикла проверяется, является ли текущее значение a[i] меньше минимального значения min. Если да, то min обновляется значением a[i].
  6. Также проверяется, является ли текущее значение a[i] больше максимального значения max. Если да, то max обновляется значением a[i].
  7. После завершения внутреннего цикла, переменная min содержит минимальное значение, а переменная max - максимальное.
  8. Вычисляется разница между max и min и сохраняется в переменную delta.
  9. Выводится сообщение с результатом вычисления max-min=delta.

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы