Задачи по Pascal. Вывести только нечетные элементы массива.

Условие задачи: Массив А вводится с клавиатуры. Вывести только нечетные элементы. Размер произвольный. (Язык Паскаль)

Сложность: легкая.

Решение задачи

Для начала продумаем наше решение. Тут довольно всё просто. Сначала с помощью одного цикла заполним наш массив, потом с помощью другого выведем нечетные элементы.

Для того чтобы решить задачу нам понадобятся следующие переменные:

Переменная A — для массива

Переменная n — для количества элементов массива

Переменная i — для цикла.

Начнем мы с каркаса нашей программы

type

massiv =
array
[
1..100
]
of
integer
;
// создаем свой тип данных для массива

var

n, i :
integer
;
// объявляем

A : massiv;
// переменные

begin

write
(
‘Введите длину массива : ‘
);readln(n);
// просим пользователя ввести длину массива

readln;
// чтобы программа не закрывалась
end
.

Тут мы создали свой тип данных для массива, как и зачем читайте ( тут ), объявили переменные, попросили пользователя ввести кол-во элементов массива.

Теперь давайте заполним наш массив:

for
i:=
1
to
n
do
// пускаем цикл для заполнения массива

begin

write
(
‘Введите ‘
,i,
‘ элемент : ‘
); readln(A[i]);
// просим пользователя заполнить массив

end
;

Ну а теперь нам надо вывести именно нечетные элементы, тут нам поможет условие:

if
(A[i]
mod
2
<>
0
)

Это условие определяет число на нечетность с помощью операции mod, которая ищет остаток от деления, читайте подробнее ( тут ), мы пишем:

for
i:=
1
to
n
do
// пускаем цикл для вывода нечетных элементов

begin

if
(A[i]
mod
2
<>
0
)
then
// если текущее число нечетное, то

write
(A[i],
‘ | ‘
);
// выводим его

end
;

Мы в цикле проверяем каждое число на нечетность и если оно нечетное то выводим его.

Всё решение задачи Pascal

type

massiv =
array
[
1..100
]
of
integer
;
// создаем свой тип данных для массива

var

n, i :
integer
;
// объявляем

A : massiv;
// переменные

begin

write
(
‘Введите длину массива : ‘
);readln(n);
// просим пользователя ввести пароль

for
i:=
1
to
n
do
// пускаем цикл для заполнения массива

begin

write
(
‘Введите ‘
,i,
‘ элемент : ‘
); readln(A[i]);
// просим пользователя заполнить массив

end
;

write
(
‘Нечетные элементы : ‘
);
// для красоты

for
i:=
1
to
n
do
// пускаем цикл для вывода нечетных элементов

begin

if
(A[i]
mod
2
<>
0
)
then
// если текущее число нечетное, то

write
(A[i],
‘ | ‘
);
// выводим его

end
;

readln;
// чтобы программа не закрывалась
end
.

Вот результат

Предыдущая запись Задачи по Pascal. Заменить элемент A[k] средним арифметическим K-первых элементов.

Следующая запись Задачи по Pascal. Найти сумму элементов массива с четными номерами, произведение отрицательных элементов, количество нечетных элементов.

Задачи по Pascal. Вывести только нечетные элементы массива.

Решение задачи

Начнем мы с каркаса нашей программы

Всё решение задачи Pascal

Вот результат

Похожие записи: