функции

Program funk;
type
mass = array[1..19] of integer;
procedure sredaripth(c: mass; m: integer);
var
sr, su: real;
i, k: integer;
begin
sr := 0;
su := 0;
k := 0;
for i := 1 to m do 
begin
f c[i] > 0 then begin
inc(k);
su := su + c[i];
end;
end;
sr := su / k;
writeln('среднее арифмет') ;
writeln(sr:2:2);
end;
procedure koli(w: mass; l: integer);
var
i, p: integer;
begin
p := 0;
for i := 1 to l do 
begin
if (w[i] < 0) and (i mod 2 <> 0) then
inc(p);
end;
writeln('кол-во элементов') ;
writeln(p);
end;
var
a, b, c: mass;
i, n: integer;
begin
randomize;
repeat
writeln('размер массива A') ;
readln(n);
until n in [1..19];
for i := 1 to n do 
begin
a[i] := random(10)-3;
write(a[i], ' ') ;
end;
sredaripth(a, n);
writeln;
koli(a, n);
writeln;
n := 0;
randomize;
repeat
writeln('размер массива B') ;
readln(n);
until n in [1..19];
for i := 1 to n do 
begin
b[i] := random(10);
write(b[i], ' ' );
end;
sredaripth(b, n);
writeln;
koli(b, n);
writeln;
n := 0;
randomize;
repeat
writeln('размер массива C') ;
readln(n);
until n in [1..19];
for i := 1 to n do 
begin
c[i] := random(10);
write(c[i], ' ' );
end;
sredaripth(c, n);
writeln;
koli(c, n);
writeln;
end.