Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kristinanester1997
07.03.2020 20:22 •
Информатика
Дан массив а вещественного типа, содержащий 20 положительных и отрицательных элементов.найти сумму квадратов элементов массива.
Показать ответ
Ответ:
tupitsa3
06.10.2020 05:57
// 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
0,0
(0 оценок)
Популярные вопросы: Информатика
Nikiton101
10.05.2022 12:35
Вывести на экран произведение чисел в диапазоне от 5 до 20 с шагом 3. с использованием while....
artemmaslov25Artem
17.11.2021 05:02
Сколько символов содержит сообщение, записанное с 16 символьного алфавита, если объем его составил 26 байт...
qantonvishnevsky
05.12.2020 11:34
Написать метод static int[] ArrayOfDivision(int number), который формирует массив из делителей числа number, начиная с 1, но не включая само число. Для определения...
paatalizip08mh2
23.02.2021 10:41
4. Таблица содержит данные об изменении температуры в г. Алматы за определенный промежуток времени Постройте график, используя данные таблицы, и укажите: а) заголовок...
yaannase
11.05.2020 09:27
Объяснить, что будет напечатано программой: program e2; begin write(1); write(2, 3); writeln(4); write(5, 6); writeln; writeln(7,8) end. Исходные значения a и b:...
coolraynur
06.02.2022 11:36
что сюда надо написать???(те кто шарит по инфе) только заходите, кто ответит глупость бан)...
kseniaGksenia
12.01.2022 16:12
Как записать эту формулу на языке программирования - Visual Basic...
В1к11
28.02.2021 06:49
Сколько файлов размером 1562 kбайт поместится на контакт диске емкостью 650мбайт...
ttttrrrrtttr
19.08.2022 12:06
Влетнем лагере всего 86 детей семикласники. 8 детей не играют в компьютерные игры, 54 ребёнка предподчитают квесты ,62 симуляторы. 1.сколько играю и в квесты и в...
Vyacheslav1111
02.06.2020 14:20
Составить фразу, чтобы она читалась одинаково справа на лево и наоборот из букв...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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