Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Chinchil1a
05.09.2020 03:56 •
Информатика
Pascal в одномерном целочисленном массиве из n - элементов, вычислить сумму элементов, кратных 5.
Показать ответ
Ответ:
mihaikl
04.10.2020 06:19
Program xxx;
var a,b,i,n:integer;
begin
b:=0;
read(n);
for i:=1 to n do begin
read(a)
if a mod 5=0 then begin
b:=b+a;
end;
end;
write(b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
LuKи
30.04.2020 12:14
Запишите логическую функцию, описывающую состояние схемы, составьте таблицу истинности: а)х б)х И Л И Не И И Л И Не И а у у...
Annamatveevvva8
22.03.2023 13:24
Чем различаются между собой микропроцессоры?...
Анастасия201811
06.06.2023 22:18
1. Для решения каких задач используется функция ЕСЛИ)? 2. Какие функции в Excel являются наиболее востребован- ными?3. Каков принцип действия функции ВПРО? 4. Как избежать возникновения...
botejijofo
03.03.2021 17:04
Сообщение занимает 2 строки и имеет информационный объём 0,125 килобайт. На каждой странице записано 128 символов. Определи мощность алфавита, который использовался !!...
ghostcatchy
23.05.2022 14:36
Визнач умову, яка описує висловлювання X не належить проміжку [5; 10]....
олжик13
02.12.2021 12:17
как это исправитья уже и да и нет нажимала ничего нету...
nbillier2004gmailcom
14.11.2022 12:04
Программа в паскале, через char (не string) ! вводится строка символов, найти сумму и количество введенных цифр....
Училка2281337
26.04.2023 09:26
Разработать функцию для решения обработки строк - подсчитать количество гласных букв в строке. паскаль....
uchikha2016
26.04.2023 09:26
Составьте программы для решения следующих . 1. определить площадь и периметр прямоугольника, если известны длина и ширина. 2. определить размер сдачи, если известны количество...
arinagrom22
26.04.2023 09:26
Подсчитать сумму квадратов отрицательных элементов одномерного массива вещественных чисел. паскаль....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b,i,n:integer;
begin
b:=0;
read(n);
for i:=1 to n do begin
read(a)
if a mod 5=0 then begin
b:=b+a;
end;
end;
write(b);
end.