Консультация № 154274
14.12.2008, 09:02
0.00 руб.
0 1 1
Даны натуральное число n, действительные числа a1, ... , an. Найти длину наименьшего отрезка числовой оси, содержащего числа a1, ... , an.

Обсуждение

давно
Профессор
401888
1232
14.12.2008, 09:57
общий
это ответ
Здравствуйте, Иванов Виктор!
Решение в приложении.

Приложение:
uses crt;
const n=20;
var a:array[1..n] of real;
min,max:real;
i:integer;
begin
clrscr;
randomize;
writeln('Massiv chisel:');
min:=1000; max:=-1000;{берем за макс и мин числа, явно превышающие пределы нашего диапазона}
for i:=1 to n do
begin
a[i]:=20*random-9; {случайные числа из инт -9;10}
if a[i]<min then min:=a[i];{находим макс и мин}
if a[i]>max then max:=a[i];
write(a[i]:6:2);
end;
writeln;
writeln;
write('Min=',min:0:2,' Max=',max:0:2,' Dlina otrezka=',abs(min-max):0:2);
{длина отрезка=разности крайних точек по модулю}
readln
end.
Форма ответа