Паскаль .Задать два целочисленных массива одинакового размера (не более 13 элементов). Вывести исходные на экран. Сформировать новый массив являющийся квадратом разности исходных массивов. Вычислить сумму тех элементов каждого массива которые кратны 4.
Ответы
Ответ дал:
0
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.
Приложения:
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад