Паскаль .Задать два целочисленных массива одинакового размера (не более 13 элементов)....

Question

Паскаль .Задать два целочисленных массива одинакового размера (не более 13 элементов). Вывести исходные на экран. Сформировать новый массив являющийся квадратом разности исходных массивов. Вычислить сумму тех элементов каждого массива которые кратны 4.

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

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

begin

 var n := ReadInteger('n=');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var b := ArrRandom(n, -99, 99);

 b.Println;

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

 c.Println;

 Print('Суммы элементов, кратных 4:');

 a.Where(t -> t mod 4 = 0).Sum.Print;

 b.Where(t -> t mod 4 = 0).Sum.Print;

 c.Where(t -> t mod 4 = 0).Sum.Println;

end.

---