Вопрос по информатике:
Дан массив А вещественного типа, содержащий 20 положительных и отрицательных элементов.Найти сумму квадратов элементов массива.
Пожаловаться
- 06.12.2017 23:24
- Информатика
- remove_red_eye 6758
- thumb_up 14
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-99,99).Select(k->k/10).ToArray; a.Println;
Writeln('Сумма квадратов элементов: ',a.Select(x->x*x).Sum)
end.
Пример
-6.7 -6.9 -1.8 7 6.6 6 -8.5 -7.8 6.7 -1.6 -9.3 -4.5 5.9 -4.6 -3.6 -0.2 2.1 4.7 7.5 -5.7
Сумма квадратов элементов: 695.79
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-99,99).Select(k->k/10).ToArray; a.Println;
Writeln('Сумма квадратов элементов: ',a.Select(x->x*x).Sum)
end.
Пример
-6.7 -6.9 -1.8 7 6.6 6 -8.5 -7.8 6.7 -1.6 -9.3 -4.5 5.9 -4.6 -3.6 -0.2 2.1 4.7 7.5 -5.7
Сумма квадратов элементов: 695.79
Пожаловаться
- 07.12.2017 04:02
- thumb_up 32
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы