Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Nesnayka228
06.01.2023 03:05 •
Информатика
Дана целочисленная последовательность из 50 элементов. элементы с черными номерами необходимо просуммировать и вывести среднее значение на экран.
Показать ответ
Ответ:
andrwy1229
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 оценок)
Популярные вопросы: Информатика
клубника25
20.03.2020 03:07
Установить взаимно однозначное соответствие между программами и их значением 1-кодеки А-Преобразование форматов аудио и видео файлов 2.конвертеры Б. сжатие и восстановление аудио...
artem861
07.10.2021 18:52
ответ представьте на языке Python. По каналу связи передается последовательность положительных целых чисел, все чис-ла не превышают 1000, их количество заранее неизвестно. Каждое...
Yanawer
21.12.2020 10:51
Впапке находятся 6 файлов. определите какие из них будут отобраны по маске ? ik*.m*nike.mpegbike.mp3iks.mpgbike.mdblike.mpgmikes.mp3...
Hacтяя
12.01.2023 00:39
Оцифровывается старый немой черно-белый кинофильм. разрешение составляет 320 х 240. частота 24 кадра в секунду. длительность фильма — 50 минут. сжатие данных при оцифровке видео...
EnglishGod
21.03.2022 15:58
Последовательность [tex] \{x_n \}[/tex]определяется рекуррентным соотношением [tex]x_{n + 2} = \frac{x_n + x_{n + 1} }{2} [/tex]при n≥1 и начальным условием [tex]x_1 = a \: \: and...
anel42
14.11.2022 20:11
Расположи в порядке возрастания: 1 год, 1мин., 1 сутки, 1 час, 1 мес.2 см, 2 дм, 2м, 2мм...
ananasik79
09.12.2022 08:44
Отметьте утверждения, справедливые для любых ограниченных последовательностей [tex]x_n \: \: and \: \: y_n[/tex][tex] \sup\{x_n + y_n\} \leqslant \sup \{x_n\} + \sup \{y_n\} \\ \sup\{x_n...
InnaGlazova
14.11.2020 11:52
Сочинение для 6 класса на тему: почему маша троекурова не приняла освобождение из рук дубровского...
suv1612
17.12.2022 02:29
Рассказ в. богомолов иван краткий сюжет, и все герои этого рассказа....
Masha8157
14.11.2020 11:52
Что значит обозначьте речевую ситуацию ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.