Сгенерируйте 3 случайных целых числа в диапазоне от -20 до+ 40и выведите их на экран в одну строку

1

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

2013-05-16T21:34:27+04:00
Var x,n:integer;
Begin
For n:=1 to 3 do
Begin
X:=random(60)-20;
Wite(x,' ');
End;
End.