Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них - Pascal ABC

Формулировка задачи:

Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них.

Решение задачи: «Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них»

Листинг программы

program  min_max;
{отключим проверку на диапазон}
{$R-}
uses crt;
var a:array[1..20] of real;
i:integer;
min,max,delta:real;
begin
for i:=1 to 20 do
readln(a[i]);
min:=0;
max:=a[1];
for i:=1 to 20 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.

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

В данном коде используется язык программирования Pascal ABC. Он предназначен для решения задач, связанных с вычислениями и обработкой данных. Программа min_max выполняет следующие действия:

Объявляет переменные: min, max, delta - для хранения минимального, максимального и разницы значений соответственно.
Создает массив a, который содержит 20 вещественных чисел.
Считывает 20 чисел с помощью функции readln и сохраняет их в массиве a.
Инициализирует переменные min и max значением первого элемента массива a.
Запускает цикл for, который проходит по всем элементам массива a.
Внутри цикла проверяет, если текущее значение min больше значения a[i], то присваивает переменной min значение a[i].
Также проверяет, если текущее значение max меньше значения a[i], то присваивает переменной max значение a[i].
По завершении цикла, переменная delta получает разницу между максимальным и минимальным значениями.
Выводит результат на экран с помощью функции write. Таким образом, программа находит разницу между минимальным и максимальным вещественными числами, представленных в массиве a.