Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
rami1991
20.05.2020 21:54 •
Информатика
Одномерный массив подсчитать сумму каждого 2 элемента в 1 массивах размер массива задается константой
Ответ:
abra123
05.10.2020 15:55
Program n1;
const n=10;
var a: array[1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
readln(a[i]);
if i mod 2=0 then sum:=sum+a[i];
end;
writeln(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sidorov26812
03.05.2022 18:15
Унас в стране планируется ввести 100- оценку. но оценивать потребуется по привычной шкале. будем считать, что оценка до 25-это двойка, от 26 до 50 - это тройка, от 51 до 75...
ggezzzz
01.09.2020 15:30
50 кумир используя команду два одномерных массива, напишите программу, соединяющую следующие точки: (0; 100) (200; 300) (300; 200) (300; 100) (200; 100) (200; 0) (100; 0) (200;...
ivangregori32p08irj
21.09.2022 09:24
На паскале нужно сделать: найти количество четных чисел в диапазоне от a до b; поменять местами значение переменных a и b 70 !...
Снежка411
20.08.2021 08:58
Можно плез с объяснениями? решите логическое уравнение ¬a ∨ ¬b ∨ c ∨ d = 0 запишите в ответе двоичный код: значения переменных a, b, c и d (0 или 1) в указанном порядке без...
nastakianka
30.10.2021 08:31
Вкажіть властивості файлового вірусу.(може бути декілька) а)у кіненць файлу корисної програми він дописує команду переходу на власне тіло б)на початок файлу корисної програми...
Lina212109
04.04.2022 18:11
Нам по информатике задали ответить на вопросы, по теме моделирование . . 1.от чего зависит выбор вида модели? 2.что такое информационная модель объекта? 3.какие вы знаете классификации...
Макс11171
04.04.2022 18:11
ответьте на вопросы -какие программные средства используются для работы с текстом? -перечислите основные области текстового редактора -какие действия выполняют кнопки панели...
кпаприрр
01.09.2020 02:59
1.Какие исторические образы мы видим в стихотворении Василия Лебедева- Кумача «Священная война»? 2.4. Как характер войны отражается в эпитетах «священная» и «народная»?...
texet1024
01.09.2020 02:59
Цилиндрическая форма имеет диаметр 20 см и высоту 25 см. В неё наливают 2 л смеси для пудинга, объём которой при кипячении увеличивается в 1,5 раза. Не будет ли пудинг переливаться...
Настя11111111110
01.09.2020 02:59
1. __ holidays are much cheaper. a) being walked b) walking c) walked d) walk 2. The girl __ for me at the hotel was my sister. a) waiting b) waited c) waits d) to wait 3. We...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
const n=10;
var a: array[1..n] of integer;
i,sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
readln(a[i]);
if i mod 2=0 then sum:=sum+a[i];
end;
writeln(sum);
end.