Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Simochka123
29.03.2020 01:00 •
Информатика
Составить программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, и находит среднее арифметическое элементов с четными значениями и нечетными индексами
Показать ответ
Ответ:
ruslananabok
05.10.2020 00:01
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\";
ПЕР
A: РЯД 10 ИЗ ЦЕЛ;
сч, сч1, сум: ЦЕЛ;
среднее: ВЕЩ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(A) - 1 ВЫП
A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
сч1 := 0; сум := 0;
ОТ сч := 1 ДО РАЗМЕР(A) - 1 ПО 2 ВЫП
ЕСЛИ ЧЕТ(A[сч]) ТО УВЕЛИЧИТЬ(сум, A[сч]); УВЕЛИЧИТЬ(сч1) КОН
КОН;
среднее := сум / сч1
КОН Задание.
0,0
(0 оценок)
Популярные вопросы: Информатика
antuarmenskaya
26.09.2021 05:10
Найдите информационный объём страницы компьютерного текста 40 строк и 50 символов. компьютерный текст -1 символ-1 байт...
Натали2004абвг
03.02.2020 20:38
В программе знак «:=» обозначает оператор присваивания, знаки «+», «–», «*» и «/» – соответственно операции сложения, вычитания, умножения и деления. Правила выполнения операций...
KOTEНОКGAB
09.04.2023 11:16
1. Процесс получения информации - это: а) выполнение домашней работы б) высадка саженцев деревьев в) чтение книги г) решение задачи по математике 2. Укажите процесс хранения информации...
ВасилисаВозгесенская
11.11.2020 01:04
Построить схему машинного алгоритма и составить Паскаль- программу решения задачи с оператора выбора Case по варианту условия, определяемому номером бригады (табл. 7.1). Необходимые...
Maksim2553
26.07.2020 11:17
Сколько фильмов объёмом 8 Гбайт каждый, поместится на один внешний жёсткий диск с объёмом памяти в 2 Тбайт?...
taush
05.03.2023 05:02
(a∪b)↔b⋂c)v(c→a) построить таблицу истинности...
Cyxapuk2
05.03.2023 05:02
Решить в паскале если можно: дана целочисленная матрица х(6 х 7). заменить нулями положительные элементы с четной суммой индексов...
MeriDu3
29.04.2020 13:11
Информационный объем одного сообщения составляет 320 байт, а другого – 512 бит. Во сколько раз информационный объем первого сообщения больше объема второго сообщения?...
snowpanzer
10.09.2020 08:08
Программирование линейных алгоритмов. Урок 1 Изучи предложенный программный код и определи возможную ошибку при вычислении арифметического выражения. a = int(input( Enter 1st number:...
artem110616
02.02.2020 04:26
Выбери правильные варианты ответа Укажи верные утверждения о цикле с постусловием. Тело цикла всегда выполняется хотя бы один раз. Причиной для выхода из цикла не является ложность...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\";
ПЕР
A: РЯД 10 ИЗ ЦЕЛ;
сч, сч1, сум: ЦЕЛ;
среднее: ВЕЩ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(A) - 1 ВЫП
A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
сч1 := 0; сум := 0;
ОТ сч := 1 ДО РАЗМЕР(A) - 1 ПО 2 ВЫП
ЕСЛИ ЧЕТ(A[сч]) ТО УВЕЛИЧИТЬ(сум, A[сч]); УВЕЛИЧИТЬ(сч1) КОН
КОН;
среднее := сум / сч1
КОН Задание.