Даны три числа a,b,c. определить минимальное из них. если минимальное число окажется отрицателтным, то все отрицателые числа следует отбнулить. в противном случае все положитльные числа следует инвертировать

1

Ответы и объяснения

2013-11-15T20:51:56+00:00
Program tcd;
var a,b,c,min:integer;
begin
readln(a,b,c);
if (a<b) and (a<c) then min:=a;
if (b<a) and (b<c) then min:=b;
if (c<a) and (c<b) then min:=c;

if min<0 then begin
if c<0 then c:=0;
if a<0 then a:=0;
if b<0 then b:=0;
end
else
if min>=0 then begin
if c>=0 then c:=-c;
if a>=0 then a:=-a;
if b>=0 then b:=-b;
end;
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
end.