Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
newsosnovskiymp06yuf
08.12.2021 20:16 •
Информатика
Составить программу, которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10, и находит среднее арифметическое элементов с четными значениями и нечетными индексами
Ответ:
CoOlbOY2003g
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 оценок)
Популярные вопросы: Информатика
965845484152
24.11.2022 13:30
Перевести 10 в двоичную систему счисления 19...
данаасус
08.08.2022 14:00
Написать программы, которые определяют: - правда ли, что последняя цифра введенного числа кратна первой; - правда ли, что сумма первой и последней цифр кратна 2; - правда...
денис1134
29.01.2023 01:15
Какие слова тут должны быть .совокупность всех копютерных программ 11 клеток 2 слова....
makskot69
29.01.2023 01:15
Написать программу стоимости поездки на автомобиле на дачу.исходными данными являются: расстояне до дачи,кол-во бензина,которое употребляет автомобиль на 100 км пробега,цена...
mirankov
15.02.2021 06:44
Чтобы сварить 1,5 л чая,нуюжно 30 г сухого чая.чайник вмещает в л.сколько нужно сухого чая для заварки? на паскале. меня не было на этой теме а завтра контрольная, .только...
kseniazaica
15.02.2021 06:44
Пользователь вводит 2 целых числа,если они четные,то найдите их сумму ,если нечетные, то найдите их разность, если 1 чётное другое нечётное найдите их произведение...
yuliadruzhko
11.08.2020 03:46
Скорость передачи информации по модему 56 кбит\с. сколько времени потребуется для передачи 7 страниц текста,если на каждой странице 55 строк,в строке 70 символов ?...
mlyz
11.08.2020 03:46
Кнопка являющаяся одним из главных элементов 4 буквы...
lukash231082
11.08.2020 03:46
Что, с информационной точки зрения, является целью: а) работы с каталогом в библиотеки; б)работы со словарём; в)учёбы в школе...
Lera246hh
11.08.2020 03:46
Пользователь вводит вещественнок число, если оно принадледит промежутку от[3; 5)u(7; +бесконечности),т . увеличте это число в 2 раза и выведите на экран, иначе выводит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Обмен\";
ПЕР
A: РЯД 10 ИЗ ЦЕЛ;
сч, сч1, сум: ЦЕЛ;
среднее: ВЕЩ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(A) - 1 ВЫП
A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
сч1 := 0; сум := 0;
ОТ сч := 1 ДО РАЗМЕР(A) - 1 ПО 2 ВЫП
ЕСЛИ ЧЕТ(A[сч]) ТО УВЕЛИЧИТЬ(сум, A[сч]); УВЕЛИЧИТЬ(сч1) КОН
КОН;
среднее := сум / сч1
КОН Задание.