Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
satana2020
18.05.2023 20:52 •
Информатика
Надо код для паскали.дан одномерный массив,найти сумму всех четных элемент массива,кратных заданному числу.
Показать ответ
Ответ:
zagyramasa
07.10.2020 02:54
Const
n=100;
var
i,m,s:integer;
com:array[1..n] of integer;
begin
randomize;
readln(s);
for i:=1 to n do begin com[i]:= random(100);
if com[i] mod s =0 then s:=s+com[i]
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
валерияС1
14.03.2023 02:19
Равносильное высказывание без операций НЕ Y = (X больше 5) и не (X меньше 8)...
Анастасиюшечка
07.08.2020 10:02
Ввести массив состоящий из 20 элементов целого тип. Определить, каких элементов больше (чётных или нечетных). Язык C++...
cratospo234
26.06.2022 07:06
3D графика Деген не?...
isaevads
04.07.2021 06:17
Язык–pascal написать программу решения задачи пользователь вводит 3 целых числа программа выдаёт сообщение о том, что треугольник с такими сторонами существует (или нет)...
ivanova48
27.05.2021 15:16
Атау септік не? алма ілік септік ненің? алманың...
pamjatnichaja
27.05.2021 15:16
Автомобиль резко пассажира ремень безопасности удержит лучше полного или худого?...
JustSuperDasha
27.05.2021 15:16
Мини сочинение на берегу реки (7 предложений), если можно на (и на сойдет...
Лейла0044
27.05.2021 15:16
Подберите каждому слову проверочное слово которое ясно покажет есть в слове непроизносимый согласный звук или его нет опасный местность интересный чудесный известный сердце вкусный...
yliachedrina200
12.07.2020 20:59
Как писать наш город с 8760 расположения зарания...
ніка65
12.07.2020 20:59
Вставьте пропущенные предлоги в словосочетания. определите падежные формы подчеркнутых существительных. подчеркните словив разных падежах с одним и тем же предлогом. остаться гулять...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n=100;
var
i,m,s:integer;
com:array[1..n] of integer;
begin
randomize;
readln(s);
for i:=1 to n do begin com[i]:= random(100);
if com[i] mod s =0 then s:=s+com[i]
end;
writeln(s);
end.