Написать программу.задать три массива размерностью - вопрос №109593146 от Knzke3 02.04.2022 11:27

Question

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

Knzke3 · 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 элементов каждый, задать произвольным значения