Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
rmnikkp00szv
17.02.2021 02:45 •
Информатика
Дан массив целых чисел. переписать его нечётные элемнты в другой массив такого же размера, расположив элементы подряд с начала массива.
Показать ответ
Ответ:
мим221
26.06.2020 17:12
Program z10;
var a,b:array[1..1000]of longint;
n,i,k:longint;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
if(a[i] mod 2=1)then begin
k:=k+1;
b[k]:=a[i];
end;
end;
for i:=1 to k do
begin
write(b[i],' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
милана198026
01.09.2022 20:30
НУЖНО РЕШИТЬ! КТО ПОНИМАЕТ ИНФОРМАТИКУ...
валера344
11.11.2020 17:37
Написать программу, в которой пользователь вводит несколько чисел, программа выводит количество положительных чисел....
alenamalaya20
11.11.2020 17:37
Вмассиве чисел а1, а2, …, а10 поменять местами максимальный элемент с минимальным. нужно написать программу на с++ с вынесением функции поиска max и min....
pecheintsynak
11.11.2020 17:37
Написать программу для решения следующей : учебным заведением был приобретен стол за s руб. его амортизация составляет 12% в год. определить, сколько он будет стоить...
seal2004
29.08.2020 14:11
Заполнить пропуски дан линейный массив. изменить массив, вычеркнув из него все четные трехзначные элементы, которые кратны своему индексу. type linmass = array [1..1000]...
ludarudenko98
29.08.2020 14:11
Сколько значащих нулей в двоичной записи шестнадцатеричного числа 2461?...
wildforme
20.05.2021 19:37
Какой закон регламентирует вопросы защиты информационных ресурсов?...
Дияс465
09.01.2022 20:29
Решите уравнение 145 с осн. x + 24 с осн. 10 = 127 с осн. 9 . ответ запишите в пятеричной системе счисления ....
XaMeJIuoH
17.05.2020 00:50
Определите объём памяти, необходимой для хранения 2 млн символов.сколько дисков объёмом 1, 44 мбайт понадобится для записи этой информации? ): )...
DayanaTolepber
20.11.2022 14:34
Понятие о лицензионном и не лицензионном по...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a,b:array[1..1000]of longint;
n,i,k:longint;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
if(a[i] mod 2=1)then begin
k:=k+1;
b[k]:=a[i];
end;
end;
for i:=1 to k do
begin
write(b[i],' ');
end;
end.