составить проект. вычислить среднее арифметическое отрицательных элементов массива С1,С2...С30 , пологая, что в массиве есть отрицательные значения. ( это нужно сделать в паскале.)

varc: array[1..30] of integer;i,n,k:integer;beginn:=0;k:=0;for i:=1 to 30 doreadln(c[i]);

for i:=1 to 30 do beginif c[i]<0 then beginn:=n+1;k:=k+c[i];end;end;writeln('srednee=', k/n )end.