Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ramzes2k02
08.06.2021 17:28 •
Информатика
Написать программу, которая находит сумму элементов массива кратных 3.
Показать ответ
Ответ:
лёванчик228
23.09.2020 16:25
Const n = 10;
var a:array[0..10] of integer;
i,s:integer;
begin
for i := 1 to n do begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
for i := 1 to n do
if a[i] mod 3 = 0 then s := s + a[i];
writeln('Сумма кратных трем ',s);
end.
Тестовое решение:
8 -4 8 10 2 1 -7 9 2 0
Сумма кратных трем 9
0,0
(0 оценок)
Популярные вопросы: Информатика
Лиза878897897
13.07.2021 20:34
напишите программу python...
kmarkechko
28.04.2022 04:57
Написать логическое выражение для расчёта стоимости покупки. Если стоимость покупки больше 400тнг , но меньше 600тнг , скидка 5%, если больше 600тнг, но меньше 1000тнг...
Sweetkristina
28.01.2022 11:40
с вопросами по IТ 1) При определении сетевых параметров рабочей станции средствами Windows XP и Windows 7 будут ли они иметь одинаковые значения? Если нет-то в чем...
akoa
23.10.2021 13:48
с вопросами по IТ 5) Может ли администратор сети изменить доменное имя компьютера пользователя? 6) Может ли пользователь сделать диск своего компьютера открытым?...
Anna2004Shevtsova
13.08.2020 23:40
Дано шахівниця розміром n×m. Тобто з n рядками та m стовпчиками. У цій шахівниці є лише одна фігура — тура. Вона знаходиться у нижньому лівому куті. Більше ніяких...
olya1234567890r
26.08.2022 22:48
Страница 9-10 задание 8 и...
Fomabarca
14.01.2020 04:10
Определить формулу алкадиена, если г его могут обесцветить 80 г 2%-го раствора брома....
Оля025
14.01.2020 04:10
Определить формулу сложного эфира, при гидролизе 2,64 г которого выделяется 1,38 г спирта и 1,8 г одноосновной карбоновой кислоты....
Gakaka
14.01.2020 04:10
Определите формулу кристаллогидрата сульфата меди, если после прокаливания навески массой 500 г она стала весить 320 г....
bossobychnyy
14.01.2020 04:10
Определите молекулярную формулу вещества, при сгорании 9 г которого образовалось 17,6 г CO2, 12,6 г воды и азот. Относительная...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[0..10] of integer;
i,s:integer;
begin
for i := 1 to n do begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
for i := 1 to n do
if a[i] mod 3 = 0 then s := s + a[i];
writeln('Сумма кратных трем ',s);
end.
Тестовое решение:
8 -4 8 10 2 1 -7 9 2 0
Сумма кратных трем 9