Даны два массива состоящих из 5 элементов а[5] и b[5] образовать новый массив с[5] каждый элемент которого равен среднему арифметическому соотв. элементу массива а и b (real)
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray; a.Println; var b:=SeqRandom(5,-99,99).Select(t->0.1*t).ToArray; b.Println; var c:=a.Zip(b,(p,q)->(p+q)/2).ToArray; c.Println end.