Как написать полностью программу на Turbo Pascal, которая находит сумму отрицательных элементов массива?

Информатика 11 класс Программирование на Pascal программа на Turbo Pascal сумма отрицательных элементов массив в Turbo Pascal алгоритм нахождения суммы информатика 11 класс Новый

Для написания программы на Turbo Pascal, которая находит сумму отрицательных элементов массива, мы будем следовать нескольким шагам. Давайте подробно рассмотрим каждый из них.

Шаг 1: Объявление массива

Сначала нам нужно объявить массив, который будет хранить наши элементы. Мы можем использовать массив целых чисел.

Шаг 2: Ввод данных

Далее мы создадим процедуру для ввода данных в массив. Пользователь должен будет ввести размер массива и его элементы.

Шаг 3: Поиск суммы отрицательных элементов

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

Шаг 4: Вывод результата

Наконец, мы выведем результат на экран.

Теперь давайте посмотрим на полный код программы:

program SumNegativeElements;
var
    arr: array[1..100] of integer; // Объявляем массив размером 100
    n, i, sum: integer; // n - размер массива, i - индекс, sum - сумма отрицательных элементов
begin
    sum := 0; // Инициализируем сумму нулем
    writeln('Введите размер массива (максимум 100):');
    readln(n); // Читаем размер массива

    writeln('Введите ', n, ' элементов массива:');
    for i := 1 to n do // Цикл для ввода элементов массива
    begin
        read(arr[i]); // Читаем элемент массива
    end;

    // Цикл для поиска суммы отрицательных элементов
    for i := 1 to n do
    begin
        if arr[i] < 0 then // Проверяем, является ли элемент отрицательным
            sum := sum + arr[i]; // Если да, добавляем его к сумме
    end;

    writeln('Сумма отрицательных элементов массива: ', sum); // Выводим результат
end.

Пояснение кода:

• Объявление переменных: Мы объявляем массив, размер которого ограничен 100 элементами, переменные для хранения размера массива, индекса и суммы.
• Ввод данных: Пользователь вводит размер массива и его элементы. Мы используем цикл for для ввода элементов.
• Подсчет суммы: Внутри второго цикла мы проверяем каждый элемент массива. Если элемент меньше нуля, мы добавляем его к переменной sum.
• Вывод результата: После завершения цикла мы выводим сумму отрицательных элементов на экран.

Это простая программа, которая эффективно решает поставленную задачу. Вы можете попробовать изменить размер массива или добавить дополнительные элементы, чтобы увидеть, как программа работает с различными входными данными.