Вычислить значения функции z= корень из ((x i+ai )/ 2) , если i x и i a – элементы массивов, состоящие из 40 элементов каждый.

// PascalABC.NET 3.0, сборка 1128begin  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.582854x=20.476  a=15.843  z=4.261401x=24.113  a=15.527  z=4.451949x=21.237  a= 2.343  z=3.433665x=21.910  a= 5.607  z=3.709251x=17.189  a=17.020  z=4.135749x=19.563  a= 3.925  z=3.426945x=19.889  a= 0.369  z=3.182643x=19.562  a= 9.601  z=3.818580x=16.894  a= 8.919  z=3.592553x=18.958  a=17.631  z=4.277185x=15.554  a= 3.849  z=3.114732x=21.548  a= 5.057  z=3.647265x=16.609  a= 7.342  z=3.460618x=17.539  a= 7.960  z=3.570686x=24.480  a=14.302  z=4.403538x=17.868  a= 6.494  z=3.490103x=21.899  a=19.188  z=4.532460x=16.436  a=18.884  z=4.202334x=17.206  a= 8.729  z=3.601061x=21.814  a=10.503  z=4.019764x=23.001  a=10.743  z=4.107544x=19.299  a=10.107  z=3.834448x=22.839  a= 1.729  z=3.504894x=16.133  a=19.472  z=4.219295x=24.329  a= 1.195  z=3.572369x=19.025  a= 3.392  z=3.347958x=21.468  a= 7.923  z=3.833489x=23.858  a=11.771  z=4.220714x=15.166  a=13.923  z=3.813718x=20.235  a= 6.653  z=3.666651x=17.190  a=18.974  z=4.252252x=23.484  a=15.799  z=4.431845x=24.087  a=12.121  z=4.254887x=18.394  a= 9.626  z=3.743032x=24.775  a= 7.627  z=4.025087x=21.259  a= 3.831  z=3.541892x=23.816  a= 2.115  z=3.600751x=18.955  a= 2.220  z=3.253826x=22.547  a= 0.709  z=3.409988