Помогите написать программу в паскале. Заполните массив из N элементов случайными числами...

0 голосов
213 просмотров

Помогите написать программу в паскале.
Заполните массив из N элементов случайными числами в интервале [1,N] так, чтобы в массив обязательно вошли все числа от 1 до N (постройте случайную перестановку).
Пример:
Массив:
3 2 1 4 5


Информатика (53 баллов) | 213 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

//PascalABC.NET 3.1 сборка 1200
begin
    Println(
        Range(1, ReadInteger('N ='))
        .ToArray
        .Shuffle
    );
end.

(53.1k баллов)
0 голосов
## // PascalABC.NET 3.9
var n := ReadInteger;
var a := ArrGen(n, i -> i + 1);     // создать массив и заполнить числами от 1 до n
a.Shuffle;                          // случайная перестановка
a.Println;
{
Пример работы
8
4 7 1 5 8 2 3 6
}