Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
альбина330
06.03.2022 20:24 •
Информатика
Дан целочисленный массив из 35 элементов элементы массива могут принимать целые значения от 0 до 1000.составьте программу позволяющию найти и вывести сумму элементов в массив из 35 элементов массива,кратных тринадцати
Показать ответ
Ответ:
vigura2
08.10.2020 02:37
Const N=35;
var a: array [1..N] of integer;
i,j,s: integer;
begin
s:=0;
for i:=1 to N do readln(a[i]);
for i:=1 to N do
if a[i] mod 30 = 0 then s:=s+a[i];
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
astraelenap01fez
29.03.2021 11:10
По данным двум натуральным числам A и B (A≤B) выведите все чётные числа на отрезке от A до B. В этой задаче нельзя использовать инструкцию if. Входные данные Вводятся...
рксский
12.03.2020 21:30
Сор по информатике 6 класс 4 четверть решить...
IDem23
15.10.2022 22:22
Напишите о типах диаграмм и графиков...
MASKARAD2211
21.04.2023 18:33
Определите значение переменной b после выполнения алгоритма. (символ «: =» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения,...
Куколка111
19.03.2020 22:05
Переведите десятичное число 105 в восьмеричную систему счисления. в ответе укажите восьмеричную запись...
borschteeeeee
19.03.2020 22:05
Трёхзначное число, записанное в системе счисления с основанием 3, при перестановке крайних цифр становится числом, выражающим то же количество, но уже в системе счисления...
SnegRainbow
30.07.2021 04:03
1. с кода unicode можно закодировать 65536 символов. каков информационный объем сообщения, набранного в этом коде: истинно велик тот человек, который сумел овладеть своим...
Leroy1234567
30.07.2021 04:03
Составьте программу которая выводит на экран значения выражения 5n...
Alicewonderr
30.07.2021 04:03
Вкакой системе счисления справедливо заданное равенство 88+44=110...
Маалинка1
04.04.2020 08:21
Раздел в диалоговом окне. слова из 6 букв. основная форма указателя мыши. слова из 7 букв...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array [1..N] of integer;
i,j,s: integer;
begin
s:=0;
for i:=1 to N do readln(a[i]);
for i:=1 to N do
if a[i] mod 30 = 0 then s:=s+a[i];
writeln(s);
end.