Войти
Регистрация
Спроси 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
Расстояние от дома отдыха до озера равно семнадцать двадцатых км, а от озера до станции тринадцать двадцатых км. на сколько километров одно расстояние больше другого? выразите...
Foksit2006
10.02.2020 11:28
Какая часть речи слово необходима...
хельгааа1
10.02.2020 11:28
Составить предложения со словами толковым, бесталковым, растолковывать....
tuzor
10.02.2020 11:28
Чему равен объём прямоугольного параллелепипеда с измерениями 10 дм, 8 дм и 4 дм?...
puzhalina77Frik
10.02.2020 11:28
Диалог между маленьким принцем и розой нужно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.