Question

Написать программу.Задать три массива размерностью 10 элементов каждый, задать произвольным способом значения для двух массивов. Элементам третьего массива присвоить произведение элементов первых двух. C[1]:=A[1]*B[1] C[2]:=A[2]*B[2] C[3]:=A[3]*B[3]

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(10, -50, 50);

 a.Println;

 var b := ArrRandom(10, -50, 50);

 b.Println;

 var c := a.Zip(b, (p, q)-> p * q).ToArray;

 c.Println

end.