Сгенерировать массив из N различных случайных чисел. Используя функцию Shuffle перемешать
Сгенерировать массив из N различных случайных чисел. Используя функцию Shuffle перемешать элементы массива. Удалить наибольший элемент массива (все,если их несколько) Паскаль
Задать свой вопрос
Эмилия Гугунава
Паскаль какой?
Дарина Шарохова
pascal.net
Mihon Kordumanov
PascalABCNET*
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-gt;xlt;gt;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-gt;xlt;gt;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.
Арсений Папсуев
выдаёт ошибку:Program1.pas(1) : Встречено 'x', а ожидался раздел описаний либо begin
Юленька Джомидова
в какой строке?
Марякина
Анастасия
какая версия PascalABC.NET ?
Косицин
Даниил
може где лишний пробел затесался?
Albina Rozenbeckaja
я извиняюсь))) я просто одну строку не скопировал)))
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
Облако тегов