Задачи по 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. Найти наибольший элемент и его номер в массиве, элементы которого вводятся с клавиатуры. Размер произвольный.
    Помогли? Поставьте оценку, пожалуйста.
    Плохо
    0
    Хорошо
    0
    Супер
    0
    Спринт-Олимпик.ру
    Мы в ВК, подпишись на нас!

    Подпишись на нашу группу в ВКонтакте, чтобы быть в курсе выхода нового материала...

    Вступить
    ×