Интересная задача

 Условие: Вычислить среднеарифметическое отрицательных элементов массива используя процедуру.

Решение:

program lab16;
var n,k:integer;
var s,r:real;
TYPE aa=array[1..11] of real;
var b:aa;
PROCEDURE symma(a:aa;n:integer; VAR s:real; var k:integer);
begin
for var i:=1 to n do
if a[i]<0 then begin
s:=s+a[i];
k:=k+1;
end;
end;
begin
writeln('введите число элементов в массиве');
readln(n);
writeln('введите элементы массива');
for var i:=1 to n do
read(b[i]);
symma(b,n,s,k);
r:=s/k;
writeln('otvet ',r:4:2);
end.