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

1

Ответы и объяснения

Лучший Ответ!
2014-04-06T09:03:56+00:00
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 a<min then min:=a;
end;
writeln(max-min);
end.