Const n=4; Var a:array[1..n]of real; i:byte; Begin For i:=1 to n do Read(a[i]); For i:=1 to n do Begin If a[i]<0 then a[i]:=a[i]+0.5; If (a[i]>0) and (frac(a[i])=0) then a[i]:=0.1; Writeln(a[i]:5:2); End; End.
Яндекс