Написать программу.задать три массива размерностью - вопрос №109592978 от Flas003 18.11.2020 22:27

Question

Информатика: Написать программу.задать три массива размерностью 10 элементов каждый, задать произвольным значения для двух массивов. элементам третьего массива присвоить произведение элементов первых двух. c[1]: =a[1]*b[1] c[2]: =a[2]*b[2] c[3]: =a[3]*b[3]

Flas003 · Answer

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.

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