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

program zz1;

var i:integer; / / задаем переменную целого типа

a, max, min:real; / / задаем переменные вещественного типа

begin

max:=0; min:=100000;

for i:=1 to 10 do

begin

read (a); / / вводим число

if a > max then max:=a; / / проверяем, если число больше максимального, то записываем его в максимальное

if a < min then min:=a; / / проверяем, если число меньше минимального, то записываем его в минимальное

end;

write (' разность между максимальным числом и минимальным = ', max - min); / /выводим ответ

end.