Дано натуральное число N и вводятся числа a1, a2 , a3 , …, aN. Найти сумму их кубов в...

Question

Дано натуральное число N и вводятся числа a1, a2 , a3 , …, aN. Найти сумму их кубов
в паскале пожалуйста

Comments

Решающие Ваше задания получают половину баллов, которые Вы тратите. По умолчанию задание оценивается в 10 баллов, следовательно решающий получит 5. Это немного, но вполне разумно, когда ответ пишется за минуту и занимает пару строк. Но если в ответе нужно сначала составить алгоритм, потом по нему написать компьютерную программу, отладить и выполнить её, предлагать за решение 5 баллов - неуважение к труду людей

Answer 1

// 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