АС
Алеся Самошкина
sa:=0;
k:=0;
for i:=1 to n do
if(a[ i]>=0) then begin sa:=sa+a[ i];k:=k+1; end;
if(k>=0) then sa:=sa/k;
writeln('sred arifmn: ',sa);
а я бы сделал так
sa:=0;
k:=0;
for i:=1 to n do
if(a [ i ] >=0) then
begin k:=k+1; sa:=sa+a [ k ] ;end;
if(k>=0) then sa:=sa/k;
writeln('sred arifmn: ',sa);