Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Задачку нужно решить в рандоме!! ! :(

1

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

2014-02-17T11:50:20+04:00
Var x,y: integer;
  begin  x:= -10+random(20);
  if x>0 then y:=x+1 else y:=x;
  writeln('Число ',x,' результат ',y);
end.