Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
osumika
03.08.2020 10:09 •
Информатика
Дан массив из n чисел найти сумму тех чисел у которых нечетный индехс и числа кратны 5 или 3
Показать ответ
Ответ:
zero22x76
05.07.2020 09:49
Var a:array[1..100000] of integer;
s,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
read(a[i]);
if (i mod 2 <> 0) and ((a[i] mod 5 = 0) or (a[i] mod 3 = 0)) then s+=a[i];
end;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
инкара10
19.02.2023 09:03
Почему люди используют десятичную систему? почему её используют не везде ?...
Riiiiiii
16.08.2021 20:15
Запиши верный ответ. Число 1910=100112 в восьмиразрядном представлении имеет вид:...
kristinasotsen
10.11.2022 10:07
Дан код, определите вид ветвленич и результат данного кода...
Danilakazan570
14.06.2020 16:29
Цуценятко Чакі важить 1,5 кг, а цуценятко Черрі - 2,5 кг. З їдаючи одну котлету, кожне цуценятко набирає у вазі 100 г. Через скільки днів Чакі наздожене Черрі, якщо Чакі з...
alinaburlaka
12.12.2020 18:52
Графикалык файлдар деген не комектесиниздерши отиниш помагите...
papinadochca2
28.02.2023 06:50
Определи назначение анимации в презентации.для повышения узнаваемостиорганизации в обществе или напроизводственном рынкедля заполнения пространстваслайдадля красочности презентацииусилить...
konstantin1959
10.09.2022 20:05
12 J 13 J1614with jewellery worth £2,000, but 5)(arrest) later, as they 6)(try) to leave the country.B Floods 1)(cause when a river2)(burst) its banks. This can happenif there...
nikolay2045
10.09.2022 20:05
нужно Установите соответствие. Укажите цифра-буква...
верадубовая2007
29.04.2023 02:00
Сколько будет в 10 сутках часов?...
LyusiaG
01.03.2022 04:19
Військовий,передумати, найгірше,мислитель,приморський. Треба визначити префікс та суфікс. До ть будь ласка!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s,i,n:integer;
begin
readln(n);
for i:=1 to n do begin
read(a[i]);
if (i mod 2 <> 0) and ((a[i] mod 5 = 0) or (a[i] mod 3 = 0)) then s+=a[i];
end;
writeln(s);
end.