Задать вопрос
17.01.2024 - 04:52

Сделать программу в Pascal.1. Организуйте ввод и вывод одномерного массива в строку, в столбец.2. Найдите произведение ненулевых элементов одномерного массива.3. Найдите количество элементов одномерного массива, чьи значения лежат в пределах от — 5 до 5 включительно.4. Выведите индексы нулевых элементов одномерного массива. Выходные данные оформите в виде:Нулевые элементы массива находятся на 2, 3, 5, 8 места?

Ответы (1)
  • yashka_914
    17 января, 2024 в 03:58

    ```pascal
    program ArrayOperations;

    var
    arr: array of Integer;
    i, product, count: Integer;
    zeroIndexes: array of Integer;

    begin
    // Ввод массива
    SetLength(arr, 10);
    for i := 0 to Length(arr) - 1 do
    begin
    Write('Введите элемент массива: ');
    ReadLn(arr[i]);
    end;

    // Вывод массива в строку
    WriteLn('Массив в строку:');
    for i := 0 to Length(arr) - 1 do
    Write(arr[i], ' ');
    WriteLn;

    // Вывод массива в столбец
    WriteLn('Массив в столбец:');
    for i := 0 to Length(arr) - 1 do
    WriteLn(arr[i]);

    // Нахождение произведения ненулевых элементов
    product := 1;
    for i := 0 to Length(arr) - 1 do
    begin
    if arr[i] <> 0 then
    product := product * arr[i];
    end;
    WriteLn('Произведение ненулевых элементов: ', product);

    // Нахождение количества элементов в пределах от -5 до 5
    count := 0;
    for i := 0 to Length(arr) - 1 do
    begin
    if (arr[i] >= -5) and (arr[i] <= 5) then
    count := count + 1;
    end;
    WriteLn('Количество элементов в пределах от -5 до 5: ', count);

    // Нахождение индексов нулевых элементов
    SetLength(zeroIndexes, 0);
    for i := 0 to Length(arr) - 1 do
    begin
    if arr[i] = 0 then
    begin
    SetLength(zeroIndexes, Length(zeroIndexes) + 1);
    zeroIndexes[Length(zeroIndexes) - 1] := i;
    end;
    end;

    // Вывод индексов нулевых элементов
    WriteLn('Нулевые элементы массива находятся на следующих местах:');
    for i := 0 to Length(zeroIndexes) - 1 do
    WriteLn('

  • ', zeroIndexes[i] + 1, '
  • ');
    WriteLn('

    ');

    end.
    ```

Знаешь ответ?

Оставить комментарий

Не уверен в ответе?
Найди верный ответ на вопрос ✅ Сделать программу в Pascal.1. Организуйте ввод и вывод одномерного массива в строку, в столбец.2. Найдите произведение ненулевых элементов одномерного массива.3. Найдите количество элементов одномерного массива, чьи значения лежат в пределах от — 5 до 5 включительно.4. Выведите индексы нулевых элементов одномерного массива. Выходные данные оформите в виде:Нулевые элементы массива находятся на 2, 3, 5, 8 места? по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы
Новые вопросы в категории: Информатика
Авторизация
*
*
Регистрация
*
*
*
*
Генерация пароля