Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
akirienko2003
24.06.2021 14:18 •
Информатика
Подсчитать сумму квадратов четных элементов. pascal !
Показать ответ
Ответ:
Уляна2000002
07.10.2020 09:21
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('S = ',a.Where(t->t.IsEven).Select(t->t*t).Sum)
end.
Пример
n= 19
49 -39 -47 67 8 -10 43 -26 58 89 13 61 -98 11 8 89 44 76 30
S = 22484
0,0
(0 оценок)
Ответ:
znarineozszf8
07.10.2020 09:21
Var
a:array[1..1000] of integer;
n,i,s:integer;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2=0
then s:=s+sqr(a[i]);
writeln(s);
readln;
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
snezhana0709
08.05.2020 10:20
По шестнадцатеричной форме внутреннего представления вещественного числа в 4-х байтовой ячейке восстановить само число. первое число: -139,375 второе число: 45ed0000 99...
милая101
19.03.2020 20:26
Сформируйте массив,содержащий 18 случайных вещественных чисел, принадлежащих промежутку (квадратная скобка)|-3; 2) и подсчитывает сумму положительных чисел. выводит в столбик...
leesasha083
06.04.2023 00:05
Для прогрессии 2,4,8, записать программу определения произведения членов прогрессии от номера 3 до номера 9 с натуральными номерами. вывести искомое произведение и величину...
Julia5415613614
25.01.2023 04:06
Два сообщения содержат одинаковое количество информации. количество символов в первом тексте в 2 раза больше,чем во втором.сколько символов содержат алфавиты,с которых записаны...
wbkamtoy
15.05.2021 11:13
Как сделать фотку на знания.ком,если нет скрепки...
Akmosh2003
17.03.2023 18:59
Определите длину мотка медной проволоки покрытой тонкой лаковой изоляцией, массой 1,7 кг и сопротивлением 0.89 ом...
ВладиславПрокофьев
30.05.2021 07:46
Номер 250 5 класс с . к . кадыралиева...
MrStepWay
30.05.2021 07:46
25 ! составить в excel таблицу значений функции двух переменных f(x,y), в прямоугольной области [a,b]×[c,d] согласно исходным данным hx – шаг изменения x, принимающего значения...
Gear228man
30.05.2021 07:46
Название народов: занимавших территории на побережье тирренского моря к северу от рима; в самом близком соседстве с римом; в городах на побережье южной италии....
RomanenkoAA
30.05.2021 07:46
Объясните все запятые они подвигались, без малейшего усилия бросая вокруг себя косы, широкими полукругами обнажая перед собою поляны, окашивая, подбивая округ пней и кустов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('S = ',a.Where(t->t.IsEven).Select(t->t*t).Sum)
end.
Пример
n= 19
49 -39 -47 67 8 -10 43 -26 58 89 13 61 -98 11 8 89 44 76 30
S = 22484
a:array[1..1000] of integer;
n,i,s:integer;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2=0
then s:=s+sqr(a[i]);
writeln(s);
readln;
readln
end.