Для решения задачи по нахождению среднего арифметического отрицательных и неотрицательных чисел на языке программирования ПАСКАЛЬ, мы можем воспользоваться следующим алгоритмом:

1. Инициализация переменных:
   • Создаем переменные для хранения суммы отрицательных и неотрицательных чисел, а также их количества.
   • Например, sum_neg для суммы отрицательных, count_neg для их количества, sum_non_neg для суммы неотрицательных и count_non_neg для их количества.
2. Ввод чисел:
   • Создаем цикл, который будет выполнять ввод чисел до тех пор, пока не будет введено число 1000.
3. Обработка чисел:
   • Внутри цикла проверяем каждое введенное число:
   • Если число меньше 0, добавляем его к sum_neg и увеличиваем count_neg на 1.
   • Если число больше или равно 0, добавляем его к sum_non_neg и увеличиваем count_non_neg на 1.
4. Расчет среднего арифметического:
   • После завершения ввода, проверяем, были ли введены отрицательные или неотрицательные числа:
   • Если count_neg больше 0, то вычисляем среднее арифметическое отрицательных чисел как sum_neg / count_neg.
   • Если count_non_neg больше 0, то вычисляем среднее арифметическое неотрицательных чисел как sum_non_neg / count_non_neg.
5. Вывод результатов:
   • Выводим результаты на экран.

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

program AverageCalculation;
var
    number: real;
    sum_neg, sum_non_neg: real;
    count_neg, count_non_neg: integer;
begin
    sum_neg := 0;
    sum_non_neg := 0;
    count_neg := 0;
    count_non_neg := 0;

    writeln('Введите числа (для завершения введите 1000):');
    readln(number);
    
    while number <> 1000 do
    begin
        if number < 0 then
        begin
            sum_neg := sum_neg + number;
            count_neg := count_neg + 1;
        end
        else
        begin
            sum_non_neg := sum_non_neg + number;
            count_non_neg := count_non_neg + 1;
        end;
        readln(number);
    end;

    if count_neg > 0 then
        writeln('Среднее арифметическое отрицательных чисел: ', sum_neg / count_neg)
    else
        writeln('Отрицательных чисел не было.');

    if count_non_neg > 0 then
        writeln('Среднее арифметическое неотрицательных чисел: ', sum_non_neg / count_non_neg)
    else
        writeln('Неотрицательных чисел не было.');
end.

Этот код позволяет вводить произвольное количество вещественных чисел, обрабатывает их и выводит средние арифметические значения для отрицательных и неотрицательных чисел. Не забудьте протестировать код, вводя различные наборы чисел!