<em>1. Короткий вариант</em> <em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin SeqRandom(10,-10,20).Select(x->(x,1/x)).Println(NewLine) end.
<em>2. "Красивый" вариант</em> <em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin SeqRandom(10,-10,20).Select(x->(x,1/x)) .Foreach(x->Writeln(x[0]:3,x[1]:15:8)) end.