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

1. Объявление переменных:
   • Создайте переменные для хранения суммы положительных и отрицательных чисел, их количества, а также переменную для ввода чисел.
2. Ввод данных:
   • Используйте цикл для ввода чисел от пользователя. Убедитесь, что количество введенных чисел не превышает 1000.
3. Обработка данных:
   • Внутри цикла проверяйте, является ли введенное число положительным или отрицательным.
   • Если число положительное, добавляйте его к сумме положительных чисел и увеличивайте счетчик положительных чисел.
   • Если число отрицательное, добавляйте его к сумме отрицательных чисел и увеличивайте счетчик отрицательных чисел.
4. Вычисление средних значений:
   • После завершения ввода данных проверьте, есть ли положительные и отрицательные числа.
   • Если нет положительных чисел, выведите "NO".
   • Если нет отрицательных чисел, также выведите "NO".
   • Если положительные числа есть, вычислите их среднее арифметическое как сумму положительных чисел, деленную на количество положительных чисел.
   • Аналогично, вычислите среднее арифметическое для отрицательных чисел.
5. Вывод результата:
   • Выведите средние значения с точностью до одного знака после запятой.

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

program AverageCalculator;
var
    num: Integer;
    posSum, negSum: Real;
    posCount, negCount: Integer;
begin
    posSum := 0;
    negSum := 0;
    posCount := 0;
    negCount := 0;

    while (posCount + negCount < 1000) do
    begin
        ReadLn(num);
        if (num = 0) then
            Break; // Завершение ввода по нулю

        if (num > 0) then
        begin
            posSum := posSum + num;
            posCount := posCount + 1;
        end
        else if (num < 0) then
        begin
            negSum := negSum + num;
            negCount := negCount + 1;
        end;
    end;

    if (posCount = 0) then
        WriteLn('NO')
    else
        WriteLn('Среднее положительных: ', Round(posSum / posCount * 10) / 10:0:1);

    if (negCount = 0) then
        WriteLn('NO')
    else
        WriteLn('Среднее отрицательных: ', Round(negSum / negCount * 10) / 10:0:1);
end.

В этом коде мы используем цикл для ввода чисел и проверяем, является ли каждое число положительным или отрицательным. Затем мы вычисляем средние значения и выводим их с нужной точностью. Если положительных или отрицательных чисел нет, выводится "NO".