1.
type
mas = record
masiv:array [1..100] of integer;
dlinna:integer;
end;
function sred(d:mas);
var
i,k:integer;
otv:real;
begin
otv:=0;
k:=0;
for i:=1 to d.dlinna do
if d.masiv[i]>0 then begin otv:=otv+d.masiv[i]; k:=k+1;
otv:=otv/k;
sred:=otv;
end;
var
a,b,c:mas;
i:integer;
begin
a.dlinna=10;
for i:=1 to a.dlinna do
readln(a.masiv[i]);
writeln(sred(a));
b.dlinna:=8;
for i:=1 to b.dlinna do
readln(b.masiv[i]);
writeln(sred(b));
c.dlinna:=12
for i:=1 to c.dlinna do
readln(c.masiv[i]);
writeln(sred(c));
end.