Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Kharin86
05.01.2022 17:24 •
Информатика
По паскалю: задать одномерный массив из 10 чисел, которые полученные случайным образом. 1) вывести на экран только нечётные элементы.
Показать ответ
Ответ:
lizadorfv
05.10.2020 16:22
Program n1;
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(20);
if a[i] mod 2<>0 then write(a[i],' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vgaydeekoy8i5c
28.11.2021 12:24
Сформировать очередь из 10 чисел. найти сумму первых 5 чисел из очереди. результат поместить в очередь. решить в паскале(и желательно с объяснениями)...
сичоврчс
07.04.2023 12:23
Сформировать массив b b1: =sin1 ,b2: =cos2,b3: =sin3,b4: =cos4 n=10...
zeriss23ozvp18
07.04.2023 12:23
Заполни пропуск так чтобы при н =35 простое высказывание было истинным н н н = н =...
fiestrigha00p01bgj
25.03.2022 13:16
На питоне дано натуральное число n. напишите функцию int mindigit (int n) (c/c++), function mindigit (n: longint): integer (pascal) и int maxdigit (int n) (c/c++),...
lina28052003
01.05.2022 21:15
30-40 ! проверочное для проверки знаний по теме: восьмеричная и шестнадцатеричная системы счисления. правила перевода целых десятичных чисел в систему счисления...
10ЛК
31.01.2022 10:14
Спо информатике! через час заканчивается возможность ....
Madinauakhitova
04.12.2022 18:17
Какую операцию нельзя совершить на компьютере ?...
ainurpandaa
18.07.2022 03:48
Грис нарисовать букву (и) ,(команды) !...
Pandorica
30.05.2022 00:12
Нужно сделать с pascal я сделала начало, закончить и если есть ошибки- исправить имеется n кол-во учеников одного класса. для каждого в компьютер вводится рост....
Viktoria120t
27.05.2022 13:19
Поставить (если нужно) знаки применения в предложении и объяснить, почему именно этот знак нужен (или почему не нужен занк тут): 1) сам неутомимый труженик отец...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(20);
if a[i] mod 2<>0 then write(a[i],' ');
end;
end.