// PascalABC.NET 3.0, сборка 1128
begin
var n:=40;
var a:=ArrRandomReal(n,0,20); // интервал (0;20)
var x:=ArrRandomReal(n,15,25); // интервал (15;25)
for var i:=0 to n-1 do
WriteLnFormat('x={0,6:N3} a={1,6:N3} z={2,8:N6}',
x[i],a[i],sqrt((x[i]+a[i])/2))
end.
Тестовое решение:
x=15.971 a= 9.703 z=3.582854
x=20.476 a=15.843 z=4.261401
x=24.113 a=15.527 z=4.451949
x=21.237 a= 2.343 z=3.433665
x=21.910 a= 5.607 z=3.709251
x=17.189 a=17.020 z=4.135749
x=19.563 a= 3.925 z=3.426945
x=19.889 a= 0.369 z=3.182643
x=19.562 a= 9.601 z=3.818580
x=16.894 a= 8.919 z=3.592553
x=18.958 a=17.631 z=4.277185
x=15.554 a= 3.849 z=3.114732
x=21.548 a= 5.057 z=3.647265
x=16.609 a= 7.342 z=3.460618
x=17.539 a= 7.960 z=3.570686
x=24.480 a=14.302 z=4.403538
x=17.868 a= 6.494 z=3.490103
x=21.899 a=19.188 z=4.532460
x=16.436 a=18.884 z=4.202334
x=17.206 a= 8.729 z=3.601061
x=21.814 a=10.503 z=4.019764
x=23.001 a=10.743 z=4.107544
x=19.299 a=10.107 z=3.834448
x=22.839 a= 1.729 z=3.504894
x=16.133 a=19.472 z=4.219295
x=24.329 a= 1.195 z=3.572369
x=19.025 a= 3.392 z=3.347958
x=21.468 a= 7.923 z=3.833489
x=23.858 a=11.771 z=4.220714
x=15.166 a=13.923 z=3.813718
x=20.235 a= 6.653 z=3.666651
x=17.190 a=18.974 z=4.252252
x=23.484 a=15.799 z=4.431845
x=24.087 a=12.121 z=4.254887
x=18.394 a= 9.626 z=3.743032
x=24.775 a= 7.627 z=4.025087
x=21.259 a= 3.831 z=3.541892
x=23.816 a= 2.115 z=3.600751
x=18.955 a= 2.220 z=3.253826
x=22.547 a= 0.709 z=3.409988