Написать программу.Задать три массива размерностью 10 элементов каждый, задать...

Question

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

Comments

Язык программирования?

---

pascal

---

Только не размерностью, а скорее все же размером. Размерность у них единица, т.н. массивы одномерные, если судить по приведенным формулам.

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.

---