Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Евгениямагическая
19.06.2021 17:40 •
Информатика
Составьте программу, которая формирует массив из 10 случайных целых чисел от 5 до 15 и подсчитывает количество нечетных чисел.(и выводит их)
Показать ответ
Ответ:
Янеж2005
15.07.2020 13:53
Var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(5,15);
if a[i] mod 2 <>0 then
write(a[i],' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Вика5552002
18.03.2020 13:51
Консольные операционные системы.В чем отличие от оконных операционных систем?...
homie51
18.03.2020 13:51
Что делать, если лаунчер epic games не грузит контент, хотя в акка3нт заходит!...
kerimagaevakk
26.07.2020 00:24
Найдите произведение всех однозначных чисел среди 8 введенных.паскаль...
tikmehr
28.04.2023 08:55
Укажите тип входных и выходных данных при а равно 10 и b равно 5...
Капка344
07.02.2023 11:31
Написать на паскале программу для вычесления суммы четных чисел от 0 до 10 с выводом результата...
blackstar19
10.12.2020 12:54
Запишите блок схему и код программы сложения двух чисел...
olegtoda
07.01.2023 02:16
Запишите номера компонентов в первый столбик таблицы, номера свойств- во второй...
Madina9742
12.03.2021 06:45
Вдекабре 1кг винограда стоил так же , как и огурцы- 250 рублей. в январе овощи ,фрукты подорожали на 25 % ,а в феврале ещё на 20 % . сколько стоил 1 кг огурцов после повышения цены...
evgen22regioon
18.01.2021 23:49
Переменная х последовательно принимает значение: -1,3,-1,0,4.чему будет равна переменная s после исполнения алгоритма? s: =0; повтори 5 [если х 0 то s: =s+x]ответы: 1)7 3)02)-1 4)5...
tima3002
25.10.2020 14:30
Даны три числа. если сумма первых двух чисел равна третьему числу, то найти сумму квадратов данных трех чисел, иначе найти разность между первым числом и третьим. вывести на экран...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(5,15);
if a[i] mod 2 <>0 then
write(a[i],' ');
end;
end.