Найдите среднее арифметическое отрицательных чисел из n введённых. (в Паскале)

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

1. Прочитать количество чисел n.

2. Ввести n чисел, проверяя каждое на знак (отрицательное или нет).

3. Если число отрицательное, то добавить его к общей сумме и увеличить счётчик таких чисел.

4. После ввода всех чисел, если найдены отрицательные числа, вычислить их среднее арифметическое, разделив сумму на количество таких чисел.

Пример кода:

pascal
Копировать код
program AverageNegativeNumbers;
var
  n, i, num, sum, count: Integer;
  average: Real;
begin
  sum := 0;
  count := 0;
  
  // Вводим количество чисел
  Write('Введите количество чисел: ');
  ReadLn(n);
  
  // Вводим n чисел и проверяем, отрицательные ли они
  for i := 1 to n do
  begin
    Write('Введите число ', i, ': ');
    ReadLn(num);
    
    if num < 0 then
    begin
      sum := sum + num;
      count := count + 1;
    end;
  end;
  
  // Если есть отрицательные числа, считаем их среднее
  if count > 0 then
  begin
    average := sum / count;
    WriteLn('Среднее арифметическое отрицательных чисел: ', average:0:2);
  end
  else
    WriteLn('Отрицательных чисел не найдено.');
end.

Объяснение кода:

1. Мы вводим количество чисел n, затем запускаем цикл, чтобы ввести эти числа по очереди.

2. Для каждого числа проверяем, если оно отрицательное (условие num < 0).

3. Если число отрицательное, прибавляем его к сумме и увеличиваем счётчик отрицательных чисел.

4. После завершения ввода чисел, если отрицательные числа были, делим сумму на их количество, чтобы вычислить среднее арифметическое.

5. Если отрицательных чисел не было, выводится сообщение, что такие числа не найдены.

Этот алгоритм позволяет корректно найти среднее арифметическое всех отрицательных чисел среди введённых.