Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Dragolord
27.02.2022 17:28 •
Информатика
Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8
Показать ответ
Ответ:
тапочек6
10.09.2020 07:24
Const n=100;
var
m:array[1..n] of integer;
a,b,i,j,k:integer;
begin
k:=0;
b:=0;
writeln ('введите количество цифр');
read (j);
for i:=1 to j do
begin
read(a);
if (a mod 8) = 0 then
begin
b:=b+a;
k:=k+1;
end;
end;
write(b/(k));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Stopnuyk2017
17.05.2021 00:13
Чем отличается канал связи от линии связи...
geragyy
17.05.2021 00:13
Сколько существует в коде морзе различных последовательностей из точек и тире длина которых равна 5 символов....
dbuzoverova
19.12.2022 10:26
1. какие данные необходимы для организации цикла? 2. что такое индексная переменная цикла? 3. операторы цикла for и порядок их выполнения. 4. что такое зацикливание? как прервать...
xastek
19.12.2022 10:26
2. в двухмерном массиве a(n,m) заменить его элементы вещественными числами, вычисляемыми по формуле a(i, j) = a(i, j) * arccos(i / (i + для каждого столбца найти и выдать на...
Alinakaliova
03.09.2022 00:32
Как можно решить вопрос недостаточно места на жестком диске или на флеш-носителе ?Можно ли уменьшить размер файла размещенного в компьютере или на носителе ?...
korolnn
07.09.2022 15:01
Учитель в начале урока знакомит учеников с темой и целями урока. Затем ученики в командах проводят исследование и готовят презентацию. После чего каждая команда презентует свою...
Тамик999
06.06.2023 15:09
Каково количество возможных событий если после реализации одного из них мы получили количество информации равное 8 бит...
Katyamaier777
03.07.2020 07:15
2 варіант1 рівеньЗавдання 1─ 16 мають по п’ять варіантів відповіді, серед яких лише ОДИНПРАВИЛЬНИЙ. Виберіть правильну відповідь (завдання 1-16-0,5б.)1.Цей портрет (сором язливий,...
Мозг66615
13.03.2022 12:08
Закончите предложение используя правильную форму глаголов в скобках герундий или инфинитив...
AlinaSh25
29.02.2020 17:19
2. При каких значениях переменных х и у значение суммы х+4 противоположно числу 4, а разности у – 7 противоположно числу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
m:array[1..n] of integer;
a,b,i,j,k:integer;
begin
k:=0;
b:=0;
writeln ('введите количество цифр');
read (j);
for i:=1 to j do
begin
read(a);
if (a mod 8) = 0 then
begin
b:=b+a;
k:=k+1;
end;
end;
write(b/(k));
end.