Сгенерировать массив из N различных случайных чисел. Используя функцию Shuffle перемешать...

Question

Сгенерировать массив из N различных случайных чисел. Используя функцию Shuffle перемешать элементы массива. Удалить максимальный элемент массива (все,если их несколько) Паскаль

Comments

Паскаль какой?

---

pascal.net

---

PascalABCNET*

Answer 1

// PascalABC.NET 3.3

begin
  var n:=ReadInteger('n = ');
  var a:=ArrRandom(n,-10,10); a.Println;
  a:=a.Shuffle; a.Println;
  a:=a.Where(x->x<>a.Max).ToArray;
  a.Println;
end.

Пример:
n =  20
8 -9 1 -5 -5 0 9 -4 -7 -4 -3 9 7 -2 4 6 -2 7 -9 -2
-4 -7 -2 8 9 -3 9 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
-4 -7 -2 8 -3 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9

Comments

И вот надо это исправлять

---

можете помочь?

---

попробую. мб. времени нету

---

буду очень благодарен

---

const
x_max = 100;
x_min = -100;

begin
Randomize;

var a := ArrFill(ReadInteger('n = '), x_max + 1);
for var i := a.Low to a.High do
begin
var num := a[i];
repeat
num := Random(x_min, x_max)
until not a.Contains(num);
a[i] := num;
end;
a.Println;

a := a.Shuffle;
a.Println;

a := a.Where(x -> x <> a.Max).ToArray;
a.Println;
end.

---

выдаёт ошибку:Program1.pas(1) : Встречено 'x', а ожидался раздел описаний или begin

---

в какой строке?

---

какая версия PascalABC.NET ?

---

може где лишний пробел затесался?

---

я извиняюсь))) я просто одну строку не скопировал)))