Паскаль как найти нечетные элементы массива

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

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

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

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

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

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

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
;

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

Это условие определяет число на нечетность с помощью операции 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. Найти наибольший элемент и его номер в массиве, элементы которого вводятся с клавиатуры. Размер произвольный.

1. Откройте текстовый редактор TurboPascal.
2. Напишите программу решения задачи по разработанному ранее алгоритму. В программе предусмотреть вывод справочной информации (информация об авторе, наименование и назначение программы), возможность многократных вычислений.
3. Отладьте программу.
4. Сохраните результаты работы программы.

Само задание.
Массив А вводится с клавиатуры. Вывести только нечетные элементы.

Заранее спасибо (๑¯ω¯๑).

textual

Листинг программы

var
a:array [1..100] of integer;
i,n,c:integer;
begin
repeat
write('N = '); readln(n);
for i:=1 to n do begin
write('A[',i,'] = '); readln(a[i]);
end;
write('Nechetnye elementy: ');
for i:=1 to n do
if a[i] mod 2 > 0 then
write(a[i],' ');
writeln; write('Povtoryt vvod? (1 - da, 2 - net)');
readln(c);
until c=2;
end.

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

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

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

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

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

1. Переменная A — для массива
2. Переменная n — для количества элементов массива
3. Переменная i — для цикла.

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

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

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

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

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

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

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