Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vlad1419
17.06.2020 17:20 •
Информатика
Напишите программу, которая заполняет массив случайными числами на отрезке [2; 10] и считает отдельно количество четных и нечетных элементов
Показать ответ
Ответ:
permyakov2001
01.09.2020 19:17
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4
0,0
(0 оценок)
Популярные вопросы: Информатика
Weronica98
11.05.2022 06:37
Дискретизация — этоа) процесс преобразования дискретного сигнала е непрерывныйб) количественная характеристика сигналав) процесс преобразования непрерывного сигнала в дискретныйг)...
Matvey2281337
13.11.2020 17:32
Сколько всего байт необходимо для запоминания одного экрана в памяти эвм, если каждая точка может быть одного из 16 цветов. каждый цвет кодируется двумя байтами, а экран...
duwie
16.11.2021 13:32
Дано действительное число х. Написать программу на языке Паскаль для вычисления выражения...
мария21112006
18.01.2022 21:28
Снаписанием письма thanks you for inviting me to stay with you when i visit your country next month. i m not sure how to get to your apartment from the airport. could you...
abbalbisk1
01.04.2020 18:08
Пушка двигается по рельсам со скоростью 15 м/с после чего прроисходит выстрел под углом 30. какая будет скорость тележки после выстрела если масса пушки без снаряда 0.5т,...
Ap4ik888
15.04.2022 03:28
The children studied hard, and as a result they passed the exams of all. better good best...
nadjanikiforovp0bx40
18.01.2022 21:28
Наименьшее количество вещества (моль) содержится в 100 г бромида -мышьяк -фосфора - железа -иттрия...
angel1073
18.01.2022 21:28
Взакрытом сосуде находилось некоторое количество идеального газа при температуре t=273 k. затем часть газа выпустили из сосуда, а оставшийся газ нагрели до 682,5 к. в результате...
marija01021
02.08.2022 17:29
Розгляньте статтю 40 конституції україни 1) про яке право йдеться у статті ? 2) укажіть відомі вам види звернень...
hahahagall
18.01.2022 21:28
Смесь 17,92 л этина и 31,36 л водорода полностью прореагировала в присутствии никелевого катализатора. вычислить объемные доли газов в полученной смеси, если она обесцвечивает...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4