10 варик Var a, b, c, K, sum:real; Begin K:=0; Sum:=0; Write ('a='); read (a); Write ('b='); read (b); Write ('c='); read (c); begin If a<0 then writeln ('K:=K+1' , 'sum:=sum+a') If b<0 then writeln ('K:=K+1' , 'sum:=sum+b'); If c<0 then writeln ('K:=K+1' , 'sum:=sum+c'); Writeln('sum=sum/k'); End end. у меня выходит sum=sum/k что не так?(

Потому что ты выводишь строку "sum=sum/k"

Еще и переменные sum и k ты не увеличиваешь, а просто выводишь

"K:=K+1' , 'sum:=sum+b"

Исправленный код:

Var a,b,c,k,sum:real;

Begin

k:=0;

sum:=0;

Write ('a='); read (a);

Write ('b='); read (b);

Write ('c='); read (c);

begin

If a<0 then begin k := k + 1; sum := sum + a; end;

If b<0 then begin k := k + 1; sum := sum + b; end;

If c<0 then begin k := k + 1; sum := sum + c; end;

writeln('sum=',sum/k:5:2);

end;

end.