Сообщение от bubuka

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));