Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nik13243546576879
26.04.2021 08:20 •
Информатика
Впаскале вводится сначала число n, а затем n чисел. выведите эти n чисел в следующем порядке: сначала выводятся все нечетные числа в том порядке, в каком они встречались во входном файле, а затем - все четные.
Показать ответ
Ответ:
элллллляяяяя555
17.07.2020 09:02
Var a:array of integer;
n,i:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
for i:=0 to n-1 do if a[i] mod 2=1 then write(a[i],' ');
writeln();
for i:=0 to n-1 do if a[i] mod 2=0 then write(a[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
antonangel88p09szr
29.05.2023 01:17
Що спільного та чим відрізняються таблиці кодів символів ASCII,KOI-8U,Windows-1251,Юнікод?...
valnov24200105oxnmv8
12.08.2020 04:42
Як программуеться биометричний паспорт, та як з нього зчитати дани? ...
KatyLala
27.12.2022 15:10
Сделать програму по задаче и обяснить ее работу пошагово задача: Получить список учеников которые учатся играть на скрипке. указать также сколько лет они занимаются музыкой и принимали...
filyanarasulov
16.03.2020 22:37
Можете пожайлуста твір про конотоп...
Сангали
22.06.2022 07:10
тема массивы.Вывести список учащихся по алфавиту. PascalABC.NET...
allegron4567
22.06.2022 07:10
Плз Надо написать сообщение на тему Информационные процессы в неживой природе. ...
Ppoligoon
04.10.2022 22:24
Скорость передачи данных по сети wi fi равна 50 мбит/с. Оцените время передачи видеофайла объёмом 25 мбайт...
Mary1708
08.04.2022 16:56
УМОЛЯЮ напишите информацию о различных системах счисления.(не с интернета!)...
BandaMin
28.09.2020 06:33
Запишите последовательность не более чем из 5 команд что бы в результате ктр получится число 13...
viktoriakeda
14.09.2020 18:10
написать код программы на языке Питона игра называется виселица...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,i:integer;
begin
readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
for i:=0 to n-1 do if a[i] mod 2=1 then write(a[i],' ');
writeln();
for i:=0 to n-1 do if a[i] mod 2=0 then write(a[i],' ');
end.