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

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

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

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

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

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

1. Переменная A — для массива
2. Переменная n — для количества элементов массива
3. Переменная 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.

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

Sverige pharmacy: CialisSverige.org

Написать ответ

Ваш e-mail не будет опубликован. Обязательные поля помечены *