Определить среди 3 введенных чисел (a,b,c) количество отрицательных и положительных. если больше отрицательных то найти произведение этих 3 чисел, а иначе найти max из трех
Var a, b, c, x, x1: Real; begin readln(a, b, c); if (a < 0) then x := x + 1 else x1 := x1 + 1; if (b < 0) then x := x + 1 else x1 := x1 + 1; if (c < 0) then x := x + 1 else x1 := x1 + 1; writeln(x1, '; ', x); if (x1 < x) then writeln(a*b*c) else begin x := a; if (b > x) then x := b; if (c > x) then x := c; writeln(x); end; end.
begin
readln(a, b, c);
if (a < 0) then x := x + 1 else x1 := x1 + 1;
if (b < 0) then x := x + 1 else x1 := x1 + 1;
if (c < 0) then x := x + 1 else x1 := x1 + 1;
writeln(x1, '; ', x);
if (x1 < x) then
writeln(a*b*c)
else
begin
x := a;
if (b > x) then x := b;
if (c > x) then x := c;
writeln(x);
end;
end.