Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
superviazovich
05.01.2020 09:50 •
Информатика
Найдите сумму элементов массива (50 элементов из [-50; 50]) кратных 7.
Показать ответ
Ответ:
vitaliy000007
01.07.2020 18:52
Program test;
const n = 5;
var i,sum:integer;
a:array [1..n] of integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] mod 7 =0 then sum:=sum+a[i];
writeln(sum);
end.
0,0
(0 оценок)
Ответ:
dzorina2002
01.07.2020 18:52
Во вложении
0,0
(0 оценок)
Популярные вопросы: Информатика
6452476826657
05.12.2021 10:11
Студенты института изучают в каждом семестре по десять дисциплин. в рассписание занятий включаются каждый день по 3 дисциплины. сколько разлицныхрассписаний может составить...
кил10
08.12.2022 02:32
Вкорзине лежат 4 яблока разных сортов.какое количество информации говорит о том , что из корзины будет вынута антоновка...
voprooos
08.12.2022 02:32
265-цветной рисунок содержит 1 кбайт информации. из скольки точек он состоит...
JaspeR9
08.12.2022 02:32
Составьте программу, котораясоставьте программу, которая заполняет массив а[1,,10 ] случайными числами в диапазоне от 0 до 10 , затем первый элемент меняет местами с максимальным...
aleksiandr999
08.12.2022 02:32
Дан массив состоящий из 10 целых чисел,заданных случайным образом из промежутка [5..25] найти минимальное и максимальное значения,их сумму...
Жасмин787
04.08.2020 10:23
Встановіть відповідність між числовою величиною і типом данних * 256, 0, 1, 0.1 , -8672, 3.345 byte integer longint real byte integer longint real...
6hh6h6h
28.09.2022 01:14
5. Чему равно количество повторений тела оператора цикла с параметром, если параметр цикла принимает: а)все нечетные значения от 1 до n? Мой ответ: б)все значения от 10...
hmrl123
25.12.2022 19:35
Для чего предназначена программа Poet PointЧто такое презентация?Что мое сад?из наших элементов состоитструктура программнойсреды Power Point?KaloDLI DOIM OIKHOCTI PowerPoint?...
drug20082005Ира
21.01.2022 00:33
Как выполняется вычитание в двоичной системе счисления? При-ведите пример....
Dashakrasaveta
18.06.2020 14:59
задание с пояснением а 2 и 3 просто ответ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n = 5;
var i,sum:integer;
a:array [1..n] of integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] mod 7 =0 then sum:=sum+a[i];
writeln(sum);
end.