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

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

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

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

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

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.
• Вывод результата: После завершения цикла мы выводим сумму отрицательных элементов на экран.

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