Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Everiya15
23.10.2022 18:43 •
Информатика
Дана целочисленная последовательность из 50 элементов. элементы с черными номерами необходимо просуммировать и вывести среднее значение на экран.
Показать ответ
Ответ:
карамакфин
26.08.2020 08:48
Program n1;
const n=50;
var a: array[1..n] of integer;
i,k,sum: integer;
begin
randomize;
for i:=1 to n do a[i]:=random(50)+1;
for i:=1 to n do if i mod 2=0 then
begin
k:=k+1;
sum:=sum+a[i];
end;
writeln(sum/k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
jdgdjrs
04.02.2021 18:15
Отметь url-адреса. выберите несколько из 7 вариантов ответа: 1) 2) 230.255.001.89 3) mon.pro.ru 4) 5) 56.250.789.01 6) 105.65.178.5 7) [email protected]...
LadaSova
27.04.2021 08:43
Обчислити скільки байтів буде займати повідомлення Людина без друзів – що дерево без коріння . будь ласка...
ВаняиМаша
03.02.2021 16:58
ДАЮ 35 Б ЗАПОЛНИТЬ КОЛОНКУ ПРИНЯТЬ/НЕ ПРИНЯТЬ ФОРМУЛАМИ В ЭКСЕЛ...
mamka18
12.09.2021 14:44
1. что такое пользавательский интерфейс? 2. чем характеризыется объект (с точки зрения объектно-ориентированного прдхода)? 3. каким образом можно узнать свойства объекта...
Milena0011
15.03.2023 13:13
Информатика(Вопрос ниже)...
ŦøPňŷŦĩĩ78
15.09.2022 10:01
Математика, физика және информатикада есептер шешу кезеңдерінсалыстырыңдар. Ұқсастық және айырмашылықтарын анықтаңдар....
РікаРо
21.03.2020 02:06
Составте программу нахождения остатка и целой части произвильного целого числа...
Тимофей225
13.12.2020 17:38
Объясните причину обеспеченности ресурсами полного речного стока Китая и Индии...
SHIRINA11
29.05.2021 23:56
Закончи уравнение реакции, характеризующее химические свойства оснований, расставь коэффициенты (если у элемента коэффициент 1, оставь окошко пустым). ... KOH + H3PO4...
DALERALIMOV02
17.02.2020 07:14
Подобрать сталь для червячных фрез обрабатывающих конструкционные стали твердостью HB230 . подобрать сталь для изготовления данной детали , расшифровать марку выбранной...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=50;
var a: array[1..n] of integer;
i,k,sum: integer;
begin
randomize;
for i:=1 to n do a[i]:=random(50)+1;
for i:=1 to n do if i mod 2=0 then
begin
k:=k+1;
sum:=sum+a[i];
end;
writeln(sum/k);
end.