Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Frororo
14.04.2020 13:29 •
Информатика
Написать программу с массивом: определить сколько процентов от всего количества элементов последовательности целых чисел составляют нечетные элементы. паскаль abc.
Показать ответ
Ответ:
Krupenyapolina
03.08.2020 12:54
Const
N = 10;
var
a: array[1..N] of integer;
i, sum: integer;
begin
for i := 1 to N do
begin
readln(a[i]);
if a[i] mod 2 <> 0 then
sum := sum + 1;
end;
writeln(sum / N * 100, '%')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
liq2354234
14.02.2021 05:40
В паскале Забор состоит из N одинаковых вертикальных досок. Некоторые из досок сгнили и нуждаются в замене, для каждой доски известно, нужно ли её заменить. Для ремонта забора...
karinabarakh
01.04.2021 18:57
Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Вывести на экран размер вклада 1 числа каждого...
Katykpoper
09.06.2023 06:31
A=15//(16%7) b=34%a*5-29%5*2 (a+b) задачка на пайтоне...
Надежда72
10.09.2020 08:54
Одинг рисунок занимает 1024 Кб. Вся папка с рисунками заняла 91 Мб. Сколько времени придется потратить на просмотр всех рисунков, если просмотр одного уходит 7 секунд....
artemmavericksmesrri
03.12.2022 12:22
Рассмотрите рисунок 1 и 2 а) определите вид компьютерной графики. б) опишите преимущества и недостатки компьютерной графики Надо к каждому рисунку отдельно определить вид графики...
настя7073
25.12.2020 15:29
Подумай и свои примеры взаимосвязи предметов и явлений в природе. сделай вывод: как мы должны относиться к природе ....
kodintsevmark
25.12.2020 15:29
Измените число существительных с единственного на множественное и внесите соответствующие изменения в остальные члены предложений. he is putting on his coat....
Vikatop10
25.12.2020 15:29
Какую сцену в рассказе бирюк можно назвать главной и почему?...
111120068
25.12.2020 15:29
1) расположите следующие стали - 45, у8а, 10кп, 08, у9 в порядке увеличения прочности. 2) расшифровать марки сплавов в соответствии с гост: бст5пс, 25, у11а, 50г2тм, кч57-17,...
linkevich1
25.12.2020 15:29
Переставь одну палочку так,чтобы равенства стали верными: x-iv=xv...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N = 10;
var
a: array[1..N] of integer;
i, sum: integer;
begin
for i := 1 to N do
begin
readln(a[i]);
if a[i] mod 2 <> 0 then
sum := sum + 1;
end;
writeln(sum / N * 100, '%')
end.