Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
guskovzahar2011
16.06.2019 05:40 •
Информатика
Вмассиве а(20) случайных целых чисел (диапазон чисел [-10..30] ) определить количество нечетных чисел
Показать ответ
Ответ:
superinventor62
13.07.2020 01:39
Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alihan22888
22.08.2019 12:30
Укажите какой командой можно изменить междустрочный интервал?...
buslabik1
22.08.2019 12:30
Составьте алгоритм : является ли треугольник со сторонами авс равнобедренными и равносторонними...
ПрикольнаяЖанеля
08.07.2019 19:30
Продолжите каждую строку (добавьте две следующие буквы) ф, ы, в, я, ч, с, й,ц,у,...
Crazyyouandme
21.03.2019 01:30
1.воспользуйтесь учебником и пример словесной модели объекта. 2.воспользуйтесь учебником биологии и пример словесной модели объекта растительного или животного мира....
varenik506
21.03.2019 01:40
1)написать программу, которая спрашивает имя пользователя, а потом здоровается. 2)написать программу, которая выводит на экран перевёрнутый текст. 3)написать программу, которая определяет...
bilainфом
21.03.2019 01:40
Как вставить на сайт муз плееры,видеоплееры и разваричивающиеся подкатегории? сайт создается или в html или front page....
123у444
11.03.2021 23:16
Вопрос, можно ли как-то настроить заливку, чтобы она равномерно ложилась, а то всё идёт пикселями?...
nezervillager
11.03.2021 23:14
Скласти задачу яка буде визначати а додатнє чи відм ємне. Умова а 0...
arsyuha
11.03.2021 23:07
Ребят что делать после установки метро 2033 со Стима перегорел мониторинга на ноутбуке...
Zores
11.03.2021 23:06
У исполнителя Калькулятор три команды, которым присвоены номера: 1. прибавь 1 2. умножь на 2 3. возведи в квадрат Сколько есть программ, которые число 2 преобразуют в число 38? Исполнитель...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
end.