Даны два массива состоящих из 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.
Внимание! Если программа не работает, обновите версию!
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.
Пример
-8.4 -8.3 -0.1 -6.3 9.4
3.3 -7.4 -1.4 9.5 9.6
-2.55 -7.85 -0.75 1.6 9.5