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.