Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
linakn14
22.02.2022 20:10 •
Информатика
Дан массив из 15 вещественных чисел. найти среднее арифметическое элементов массива , стоящих на местах кратных 3 и делящихся на 5 без остатка
Показать ответ
Ответ:
vitalinabelova1
21.09.2020 12:55
Var
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
yanamalikova
25.12.2021 08:18
подскажите как можно дистанционо заработать хотя б 500 тенге мне 13 лет знаю питон и С...
elena1234569
11.06.2020 19:01
Сделайте таблицу моя библиотека включив в неё не менее 5 книг...
linashilova00
30.08.2022 01:41
Нужно решить! Буду благодарен за...
RomisuRomi
13.02.2021 14:32
Отримайте за до зрізів рядки програміст та зірка з рядка якщо ви можете запрограмувати комп ютер , то ви зможете досягти своєї мрії. Дік Костоло ....
ginfv
14.11.2022 10:03
Какую роль играет понятие отношения в информационном моделировании?...
maga20082
12.04.2021 11:18
последняя задания B ...
ldfjwdsrerwv
17.12.2021 18:13
Жанр:миф,сказка ,рассказ нужно установить соотвествие А)жанр малой повествовательной прозы B)народное произведение о вымышленных лицах и событиях С)древнее народное сказание о...
Danatil
17.12.2021 18:13
Напиши рассказ на тему моя родина 5-6 предложений быстрее...
Gootya1
06.02.2023 15:02
Object pronouns составьте предложения ...
superfifer
25.05.2022 20:35
Как вы понимаете выражение: Благородство не в крови, а в характере? Дайте ответ 1-2 предложениями....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..15] of real;
i: integer;
b, c:real;
Begin
for i:=1 to 15 do
read(a[i]);
for i:= 1 to 15 do
if (((i mod 3)=0) and ((a[i] mod 5)=0) then
Begin
b:=b+a[i];
c:=c+1;
End;
write(b/c);
End.