Простое решение. Сначала просто заполняем массив в ручную, потом ищем минимальное значение и максимальное.
Суть развёрнутой формы числа заключается в его поразрядной записи с разрядной степенью
0.385 = 3*10^-1 +8*10^-2 +5*10^-3
Var D,L,R,S:real;
Const Pi=3.14;
Begin
randomize();
S:=random(11)+10;
R:=sqrt( S/Pi );
L:=Pi*2*R;
D:=L/Pi;
Writeln('L = ',L);
Writeln('D = ',D)
<span>End.</span>
D = (x1^2 + x2^2)^(1/2)
Q = I^2 * R
J = 2 * pi * R
S = v0 * t + a * t^2 / 2
R = 1 / (1 / R1 + 1 / R2)
ИЛИ
D = (x1*x1 + x2*x2)^(1/2)
Q = I*I * R
J = 2 * pi * R
S = v0 * t + a * t*t / 2
R = 1 / (1 / R1 + 1 / R2)