Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ahahahahahhahah
14.06.2022 12:48 •
Информатика
Составить блок-схему и написать программу на бейсике.в одномерном массиве состоящем из n целых элементов вычислить сумму квадратов всех нечетных чисел
Показать ответ
Ответ:
КрутойМиха
30.06.2020 21:04
Uses crt;
var n,i,ans:integer;
a:array[1..100] of integer;
begin
writeln('Введите n и элементы массива.');
read(n);
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2 <>0 then
ans:=ans+sqr(a[i]);
end;
writeln(ans);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Рэйн0165
20.07.2022 06:24
Оцените данный сайт по принципам «хорошего» сайта (юзабилити)....
bohdankacojs
16.04.2021 00:27
Решить в Python Напишите программу, которая вводит два целых числа и находит их произведение, не ис-пользуя операцию умножения. Учтите, что числа могут быть отрицательными....
dfyz2
20.04.2022 13:11
В словаре employee поменяйте зарплату сотрудника John на 300000. employee = { employee1 : { name : Sam , age : 35, salary : 400000}, employee2 : { name : Anna , age : 29, salary...
paniann17
04.07.2022 17:35
Укажите названия компьютеров и название доменов в следующих адресах: lego.rdsor.md ibl.stof.ua edu.ru объясните структуру адресов электронной почты. создайте адрес почтового...
аноним991
04.07.2022 17:35
Зашифровать слова - улитка, бык, лев, сова. заранее !...
дазз
16.10.2020 08:57
Ситуация №1 Овощные салаты послужили причиной массового заболевания людей, обедающих в одном из частных предприятий общественного питания города. После обследования условий приготовления...
tereshkova11
16.10.2020 08:57
Підкреслити головні і другорядні члени реченняЦе означає, що праця має полонити серце, перетворитися на творчість, оточену ореолом краси, гордості, особистої гідності....
nikitavor7135
11.01.2023 17:40
Як справи ? /дякую тим хто відповідає на мої питиня в таку пору /я маю віду ніч ❣️❣️❣️❣️❣️ (будьласка підпишіця на мене хтось...
ueds23
11.01.2023 17:40
Выделите формообразующие частицы. самый, ведь, что за, уж, бы, более...
Nic5748796237067736
28.05.2023 19:04
4- mashq. Berilgan birikmalardan foydalanib, gaplar tuzing va yozing.Yaxshilarga intilib, kattalarga taqlid qilib, yomondan qoch, aqllidanoʻrgan, savodxon biladi, ojizlarga ko...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,i,ans:integer;
a:array[1..100] of integer;
begin
writeln('Введите n и элементы массива.');
read(n);
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2 <>0 then
ans:=ans+sqr(a[i]);
end;
writeln(ans);
end.