Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
danya8202
26.08.2022 19:04 •
Информатика
Задан массив а (10). вставить число х в массив целых чисел после всех нечетных элементов.
Показать ответ
Ответ:
mcghcnnbn
05.07.2020 13:01
Var a:array[1..11] of integer;
i,t,x:integer;
begin
t:=0;
for i:=1 to 10 do begin
read(a[i]);
if odd(a[i]) then t:=i;
end;
readln(x);
for i:=11 downto t+1 do
if i>=2 then a[i]:=a[i-1];
a[t+1]:=x;
for i:=1 to 11 do
write(a[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
HollywooD2016
17.03.2022 09:09
Если несколько команд набрали одинаковое количество очков, то места между ними распределяются по разнице забитых и пропущенных мячей: чем разница больше, тем место выше. Попробуйте...
faridremihanov1
01.06.2023 10:36
Написать конспект. Решить задачу: Решить задачу с использованием функции Concat Описать строковую константу k= Кабинет и строковую переменную pred. Ввести с клавиатуры название предмета...
Лена467744
02.12.2021 03:36
Дана строка, содержащая пробелы. Найдите, сколько в ней слов (слово – это последовательность непробельных символов, слова разделены одним пробелом, первый и последний символ строки...
kat19810
30.03.2022 17:42
сделать тест по информатике!!,хотя бы половину...
ОляФомина
22.03.2023 03:45
Сколько времени потребуется для ввода в память компьютера текста на 83 страницах с сканера и программы ABBYY FineReader, если известно, что на сканирование одной страницы уходит 3...
cat504
13.02.2022 14:47
На си: Заданы массивы чисел Х [0.. n] и Y[0..m]. Написать программу, определитьзначение переменной z. Исходные данные и результат напечатать с пояснительнымтекстом. Решение задачи...
nica26
05.06.2020 16:29
Предмет поместили перед собирающей линзой. a) Постройте изображение предмета, полученное рассеивающей линзой с оптической силой 5 дптр. [3] b) Определите фокусное расстояние линзы...
Mrt2004
11.05.2022 04:38
начертите отрезок AB постройте с циркуля и линейки какой-нибудь равнобедренный треугольник у которого отрезок AB основания, а угол, лежащий против основания, тупой....
Panda9881
12.06.2022 15:15
230. Заполните таблицу в Present Simple....
МашунькA
20.03.2023 18:22
Зная, что сумма углов треугольника 180°, найдите градусную меру неизвестного угла:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,t,x:integer;
begin
t:=0;
for i:=1 to 10 do begin
read(a[i]);
if odd(a[i]) then t:=i;
end;
readln(x);
for i:=11 downto t+1 do
if i>=2 then a[i]:=a[i-1];
a[t+1]:=x;
for i:=1 to 11 do
write(a[i],' ');
end.