Дано натуральное число n и вводятся числа a1, - вопрос №5483666123 от 73487Юлия14271 27.08.2020 06:17

Question

Информатика: Дано натуральное число n и вводятся числа a1, a2 , a3 , …, an. найти сумму их кубов в паскале

73487Юлия14271 · Answer

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
Writeln('Сумма кубов ',a.Select(x->x*x*x).Sum)
end.

Тестовое решение:
n= 6
Вводите числа: 6 3 5 2 4 1
Сумма кубов 441