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

инна1382 инна1382    2   30.09.2019 18:50    0

Ответы
SHEVENIST SHEVENIST  09.10.2020 06:05
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.


Паскаль .задать два целочисленных массива одинакового размера (не более 13 элементов). вывести исход
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика