Пусть дано 10 вещественных чисел, которые вводятся по одному. Вычисли-те разность между максимальным и минимальным числами. паскаль ABC

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal:

program MaxMinDifference;
var
i: integer;
num, maxNum, minNum, diff: real;
begin
writeln('Введите 10 вещественных чисел:');
readln(num);
maxNum := num;
minNum := num;
for i := 2 to 10 do
begin
readln(num);
if num > maxNum then
maxNum := num;
if num < minNum then
minNum := num;
end;
diff := maxNum - minNum;
writeln('Разность между максимальным и минимальным числами: ', diff);
end.

Этот код сначала вводит 10 вещественных чисел, затем находит среди них максимальное и минимальное числа, и вычисляет разность между ними.