Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
frautatyana20
06.02.2022 08:59 •
Информатика
Дан массив из 15 чисел посчитать количество тех чисел, у которых чётный индекс. .
Показать ответ
Ответ:
seniorchi4kan
12.07.2020 12:21
Var a: array [1..15] of integer; i, s: integer;
begin
for i := 1 to 15 do
read(a[i]);
s := 0;
for i := 1 to 15 do
if i mod 2 = 0 then
s := s + a[i];
writeln(s);
end.
0,0
(0 оценок)
Ответ:
candiesgirl16
12.07.2020 12:21
Тут даже программу писать не надо, ибо от 1 до 15 всегда ровно 7 четных чисел
0,0
(0 оценок)
Популярные вопросы: Информатика
NurBanu1
07.08.2020 17:09
7. Выберите то, что не относится к языку программирования Python a) Readln b) int с) input()d) Writeln е) *** f) string...
Lacky12game
20.09.2021 09:28
Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел. Входные данные Входная строка содержит 5 целых чисел, разделённых пробелами. Выходные данные...
llvoronall
09.11.2022 16:45
Осыны pydroid 3 праграмасымен орындау қажет берем...
davo20051
31.01.2021 17:14
Напишите программу, которая получает три числа – рост трёх спортсменов, и вы-водит сообщение По росту. , если числа введены по возрастанию, или сообщение Не по росту! , если они...
Andrianovnd
15.02.2020 21:49
При форматировании слов изменяется... А) размер символов В) отступ абзаца С) расстояние между строками Д) все...
kolika2016
03.12.2020 04:18
Проанализировав таблицу соотношений разрешения и диагонали экранов, выбрать только варианты сверх комфортных разрешений: 1. Разрешение (800*600)/диагональ 9 дюймов 2. Разрешение...
evmenovvlad
04.06.2021 14:44
Як формувалася середньовічна культура на Заході?...
superdmnomber1
28.06.2021 07:10
Причиной движения воздушных масс является...
MarinaFilimonova
28.06.2021 07:10
Визначити з якої висоти падає тіло якщо за останні 2 с воно пролетіло 60 м. Прискорення вільного падіння 10 м/с2...
Zhenechka12332145
23.02.2023 22:03
ответьте правильно и не спамьте иначе отмечу как нарушение Из приведенных примеров иллюстрирует понятие «межличностные отношения»? 1.Группа учеников вместе работает над проектом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for i := 1 to 15 do
read(a[i]);
s := 0;
for i := 1 to 15 do
if i mod 2 = 0 then
s := s + a[i];
writeln(s);
end.