// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ReadArrReal('Введите 8 значений x:',8);
var y:=ReadArrReal('Введите 8 значений y:',8);
x.Zip(y,(p,q)->Sqrt(p*p+q*q)).Println
end.
Пример
Введите 8 значений x: 4 2.5 -3.1 1.6 0 7 3.33 12.8
Введите 8 значений y: -4.56 2.18 3.1 9 0 7 1.001 0.002
6.06577282792556 3.31698658423576 4.38406204335659 9.14111590562115 0 9.89949493661167 3.47719729092268 12.80000015625