Предмет: Информатика,
автор: Travka24
Сгенерировать массив из N различных случайных чисел. Используя функцию Shuffle перемешать элементы массива. Удалить максимальный элемент массива (все,если их несколько) Паскаль
kprof:
Паскаль какой?
pascal.net
PascalABCNET*
Ответы
Автор ответа:
0
// 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
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
И вот надо это исправлять
можете помочь?
попробую. мб. времени нету
буду очень благодарен
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.
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 ?
може где лишний пробел затесался?
я извиняюсь))) я просто одну строку не скопировал)))
Похожие вопросы
Предмет: Физика,
автор: lolyyasha
Предмет: Биология,
автор: annabunchuk17
Предмет: Английский язык,
автор: maratulynurdaulet1
Предмет: Алгебра,
автор: elenavoronina4
Предмет: Алгебра,
автор: coolganina2017