Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Makoto2000
26.02.2023 08:02 •
Информатика
Одномерный массив подсчитать сумму каждого 2 элемента в 1 массивах размер массива задается константой
Показать ответ
Ответ:
kramina031
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 оценок)
Популярные вопросы: Информатика
Gazizianov2018
11.06.2022 10:10
Закончите определения: фонетика - это раздел науки ботаника - это раздел науки земледельцы - это люди, тяжелая промышленность - легкая промышленность -...
Mari666a
18.03.2020 19:17
Какое число будет выведено в результате работы следующей программы? var k, s: integer; bedin k:=1; s:=0; repeat s:=s+k; k:=k+2; until k меньше 8 writeln (s) ; end....
pinelike
12.06.2020 14:14
Напишите программу для нахождения площади S и периметра P прямоугольника, если известно, что одна сторона А, а вторая в 3 раза больше. *...
aidanmoretti
26.01.2020 04:42
Pascal 1)В данном слове замените первый и последний символы на символ «*» 2)В данном слове произведите обмен первого и последнего символа...
foxlina15
12.07.2021 01:55
Соп,надо составить программу на паскале,,...
Киса11111112
10.02.2020 11:28
Расстояние от дома отдыха до озера равно семнадцать двадцатых км, а от озера до станции тринадцать двадцатых км. на сколько километров одно расстояние больше другого? выразите...
хельгааа1
10.02.2020 11:28
Составить предложения со словами толковым, бесталковым, растолковывать....
puzhalina77Frik
10.02.2020 11:28
Диалог между маленьким принцем и розой нужно...
polina19a
10.02.2020 11:28
Твір на тему ,,що було б,якби всі українці були як одна сім я...
protivnuy
10.02.2020 11:28
Укажите такие числа a и b,чтобы нод(a; b)=39...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.