Question

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

Answer 1

const
n = 3;
var
i, a, count, s: integer;
begin
for i := 1 to n do begin
readln(a);
if(a < 0) then begin
s := s + a;
inc(count);
end;
end;
writeln(s/count);
end.

Answer 2

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

- Объявить переменные для хранения количества вводимых чисел (n), массива из n чисел (a), счетчика элементов массива (i), суммы отрицательных чисел (s), среднего арифметического отрицательных чисел (sr) и количества отрицательных чисел (k). - Присвоить переменным i, s и k начальные значения 1, 0 и 0 соответственно. - В цикле от 1 до n считывать с клавиатуры значения элементов массива a и записывать их в соответствующие ячейки. - В том же цикле проверять, является ли текущий элемент массива отрицательным. Если да, то прибавлять его к переменной s и увеличивать переменную k на 1. - После окончания цикла вычислить среднее арифметическое отрицательных чисел, разделив переменную s на переменную k. - Вывести на экран значение переменной sr.

Пример программы на языке Pascal, реализующей эти шаги, можно найти по ссылке [здесь](https://bing.com/search?q=%d1%81%d1%80%d0%b5%d0%b4%d0%bd%d0%b5%d0%b5+%d0%b0%d1%80%d0%b8%d1%84%d0%bc%d0%b5%d1%82%d0%b8%d1%87%d0%b5%d1%81%d0%ba%d0%be%d0%b5+%d0%be%d1%82%d1%80%d0%b8%d1%86%d0%b0%d1%82%d0%b5%d0%bb%d1%8c%d0%bd%d1%8b%d1%85+%d1%87%d0%b8%d1%81%d0%b5%d0%bb+%d0%b2+%d0%bf%d0%b0%d1%81%d0%ba%d0%b0%d0%bb%d0%b5).