Давайте разберем, как создать массив целых чисел в PascalABC, вывести его на экран и найти сумму отрицательных элементов. Мы будем работать с промежутком [10:45], что означает, что массив будет содержать числа от 10 до 45 включительно.

1. Создание массива:
   • Сначала определим размер массива. В нашем случае это будет 36, так как 45 - 10 + 1 = 36.
   • Затем создадим массив целых чисел.
2. Заполнение массива:
   • Мы будем заполнять массив числами от 10 до 45.
3. Вывод массива на экран:
   • Используем цикл для прохода по элементам массива и вывода их на экран.
4. Поиск суммы отрицательных элементов:
   • Поскольку в нашем массиве числа находятся в диапазоне от 10 до 45, отрицательных элементов не будет.
   • Тем не менее, мы можем написать код, который будет искать отрицательные числа, чтобы понять, как это делается.

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

var
    arr: array[1..36] of integer; // Объявляем массив
    i: integer; // Переменная для цикла
    sum: integer; // Переменная для суммы отрицательных элементов
begin
    // Заполняем массив числами от 10 до 45
    for i := 1 to 36 do
    begin
        arr[i] := 10 + i - 1; // Присваиваем значения
    end;

    // Выводим массив на экран
    write('Массив: ');
    for i := 1 to 36 do
    begin
        write(arr[i], ' '); // Выводим каждый элемент массива
    end;
    writeln; // Переход на новую строку

    // Инициализируем сумму
    sum := 0;

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

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

Этот код создаст массив, заполнит его числами от 10 до 45, выведет массив на экран и посчитает сумму отрицательных элементов (которая будет равна 0, так как в массиве нет отрицательных чисел).

Если у вас остались вопросы или что-то непонятно, не стесняйтесь спрашивать!