Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
help1010100101020349
20.09.2021 17:29 •
Информатика
Напишите программу, которая заполняет массив случайными числами на отрезке [2; 10] и считает отдельно количество четных и нечетных элементов
Показать ответ
Ответ:
alina9ru
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 оценок)
Популярные вопросы: Информатика
raydin
22.10.2020 04:54
В файле хранится 16-цветный рисунок размером 32 на 64 пикселя. Каков объём этого файла в килобайтах?...
аграил9
03.02.2023 11:36
и с решением не только ответы...
Angel168Demon
16.05.2023 15:23
Докажите с таблицы истинности равенство логических выражений: ¬(AvB)=¬A&¬B (построить таблицу) ...
aziret31101
05.12.2020 02:27
Постановка проблемы Следует вычислить периметр прямоугольника P, если известны его ширина H и длина L. переменные P, H переменная P переменные P, L переменные H, L...
Настя190411
05.11.2020 15:12
Для проведения эксперимента создаются изображения содержащие случайные наборы цветных пикселей. В палитре 65 536 цветов размер изображения - 640*480 пк, при сохранении...
егор23578584
21.04.2022 23:11
с заданием. ЯП Паскаль или по желанию...
nazardovhanich
19.04.2021 21:01
Синтез. Оценивание 7. Напишите эссе на тему «Роботы в нашей жизни».8. Представьте себя роботом, продемонстрируйте его действия.Чем робот отличается от человека? Дайте...
Mmaal
05.09.2021 04:20
1). После выполнения команды x:=x+y значение переменной x равно -3, а значение переменной y равно 15 .Чему были равны значения переменных x и y до выполнения указанной...
Masha8157
14.09.2020 19:33
Робот находится на квадратном поле неизвестного размера.начальное положение робота-центр поля.Составьте алгоритм,по которому робот переместится в левый нижний угол а потом...
theanuta11
13.06.2022 18:11
№1: Вычисли фокусное расстояние лупы (с точностью до сантиметра), если её оптическая сила равна D=3,5 дптр. ответ дать в см (округлить до целых). №2: Если оптическая сила...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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