function RandGen(N:integer; lb: integer; rb: integer):sequence of integer;
begin
for var i := 1 to N do begin
yield Random(lb, rb);
end;
end;
---Python 3.8.3---
import random
def RandGen(N:int, lb:int, rb: int):
for i in range(N):
yield random.randint(lb,rb)
--- C# 7.3 ---
public static IEnumerable<int> RandSeq(int N, int lb, int rb)
{
Random r = new Random();
for (int i = 0; i < N; i++)
{
yield return r.Next(lb, rb);
}
}
Для решения обеих задач подойдёт эта функция (на нужном вам языке). Все три функции возвращают перечисляемый объект. Ни одна из функций не возвращает готовый массив случайных чисел. Вывод на экран сгенерированных значений функции не поддерживают.
--- PascalABC.NET 3.6.2 ---
function RandGen(N:integer; lb: integer; rb: integer):sequence of integer;
begin
for var i := 1 to N do begin
yield Random(lb, rb);
end;
end;
---Python 3.8.3---
import random
def RandGen(N:int, lb:int, rb: int):
for i in range(N):
yield random.randint(lb,rb)
--- C# 7.3 ---
public static IEnumerable<int> RandSeq(int N, int lb, int rb)
{
Random r = new Random();
for (int i = 0; i < N; i++)
{
yield return r.Next(lb, rb);
}
}
Для решения обеих задач подойдёт эта функция (на нужном вам языке). Все три функции возвращают перечисляемый объект. Ни одна из функций не возвращает готовый массив случайных чисел. Вывод на экран сгенерированных значений функции не поддерживают.
// PascalABC.NET
begin
var n := ReadInteger;
SeqRandom(n, 0, 200).Println; // 1
SeqRandom(n, -200, 200).Print // 2
end.