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

Var a,min,max:real;
i:integer;
begin
max:=-999999;
min:=999999;
for i:=1 to 10 do begin
read(a);
if a>max then max:=a;
if aend;
writeln(max-min);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.