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.