30 августа, 21:07

Сделать программу в Pascal.

1. Организуйте ввод и вывод одномерного массива в строку, в столбец.

2. Найдите произведение ненулевых элементов одномерного массива.

3. Найдите количество элементов одномерного массива, чьи значения лежат в пределах от - 5 до 5 включительно.

4. Выведите индексы нулевых элементов одномерного массива. Выходные данные оформите в виде:

Нулевые элементы массива находятся на 2, 3, 5, 8 местах.

+3
Ответы (1)
  1. 30 августа, 21:44
    0
    begin

    var a : = Arr (1, 0, 2, 0, 3, 0, 4, 0, 5) ;

    Println ('в строку:') ; a. Println;

    Println ('в столбец:') ; a. Println (Newline) ;

    Println ('произведение ненулевых элементов:') ;

    a. Where (x - > x 0). Aggregate (1, (p, x) - > p * x). Println;

    Println ('кол-во элементов со значениями в пределах (-5, 5) : ') ;

    a. Where (x - > x. InRange (-5, 5)). Count. Println;

    Println ('нулевые элементы находятся на местах:') ;

    a. IndexesOf (x - > x = 0). Select (x - > x + 1). Println;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сделать программу в Pascal. 1. Организуйте ввод и вывод одномерного массива в строку, в столбец. 2. Найдите произведение ненулевых ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы