решение задачи части С

Вычисление среднего арифметического  элементов, выбранных из

массива по условию.

Опишите на русском языке или на одном из языков программирования
алгоритм подсчета среднего значения всех отрицательных элементов заданного
целочисленного массива размером 30 элементов в предположении, что в нем
есть хотя бы один отрицательный элемент.

Ответ:

Объявляем массив А из 30 элементов.

Объявляем целочисленные переменные

i,  j,  s-переменная-сумматор, в ней будет

накапливаться сумма элементов,  k-

переменная  – сумматор, в ней будет

накапливаться количество отрицательных

элементов, Sa – среднее арифметическое..

В цикле от 1  до 30 вводим элементы

массива А с 1 – го по 30 –й.

   Обнулить сумматоры S=0, k=0

   Начало цикла. Для каждого элемента

массива с 1-го по 30-ый делать: если

текущий элемент меньше нуля, то

     Начало составного оператора:

 добавить его значение в переменную-

сумматор s;

 увеличить переменную k на 1.

     Конец составного оператора.

Конец цикла.

Вычислить среднее Sa= s/k

Выдать Sа.

Паскаль

Const

   N=30

Var

   A : array [1..n] of integer;

I, j, s, k : integer;

   Sa: real;

Begin

   For I := 1 to n do readln(a[i]);

S:=0; k:=0;

For I := 1 to n do

      If a[i]<0 then begin

         s:=s+a[i];

k:=k+1;

     end;

   sa:=s/k;

Else writeln(sa:0:2);

End.

{В данном случае не обязательно

проверять, есть ли отрицательные элементы

в массиве, т.к. по условию гарантируется их

наличие}