Сгенерировать массив из N различных случайных чисел. Используя функцию Shuffle перемешать элементы массива. Удалить максимальный элемент массива (все,если их несколько) Паскаль
Ответы
Ответ дал:
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
Ответ дал:
0
выдаёт ошибку:Program1.pas(1) : Встречено 'x', а ожидался раздел описаний или begin
Ответ дал:
0
в какой строке?
Ответ дал:
0
какая версия PascalABC.NET ?
Ответ дал:
0
може где лишний пробел затесался?
Ответ дал:
0
я извиняюсь))) я просто одну строку не скопировал)))
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад