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

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)-gt; Sqr(p - q)).ToArray;

 c.Println;

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

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

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

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

end.