Вывести на экран случайные из заданных чисел

@maksim-maksim · Регистрация: 11.09.2017

Author24 — интернет-сервис помощи студентам

привет привет
научите, как вывести случайные числа из массива. ну например я задал массив с клавиатуры и теперь хочу вывести на экран случаные из заданых мною чисел. это могут быть 1, 8, 7 , 3 допустим хочу, чтобы эти числа были выведены случайно. random как то неп подходит вроде

@bormant · 04.12.2017, 16:27

Самый простой вариант -- перемешать, затем взять сколько нужно от начала.

Pascal

1	var a: array [0..9] of Integer; i, j, t: Integer;

Перемешивание при вводе:

Pascal

  for i:=Low(a) to High(a) do begin
    j:=Random(i+1);
    if j<i then begin
      a[i]:=a[j]; Read(a[j]);
    end else Read(a[i]);
  end;

или

Pascal

  for i:=Low(a) to High(a) do begin
    j:=Random(i+1);
    if j<>i then a[i]:=a[j];
    Read(a[j]);
  end;

перемешивание имеющегося массива:

Pascal

1
2
3

for i:=High(a) downto Low(a)+1 do begin
  j:=Random(i+1); t:=a[j]; a[j]:=a[i]; a[i]:=t;
end;

Добавлено через 1 минуту
http://ru.wikipedia.org/wiki/Тасование Фишера-Йетса

@maksim-maksim · 04.12.2017, 16:40 **[ТС]**

спасибо

@bormant · 04.12.2017, 19:15

Ах да, смотреть лучше английскую версию, на русской есть ошибки.

@maksim-maksim 0 / 0 / 0 Регистрация: 11.09.2017 Сообщений: 24
		1
	Вывести на экран случайные из заданных чисел 04.12.2017, 14:45. Показов 2018. Ответов 3 Метки нет (Все метки) привет привет научите, как вывести случайные числа из массива. ну например я задал массив с клавиатуры и теперь хочу вывести на экран случаные из заданых мною чисел. это могут быть 1, 8, 7 , 3 допустим хочу, чтобы эти числа были выведены случайно. random как то неп подходит вроде 0

@maksim-maksim 0 / 0 / 0 Регистрация: 11.09.2017 Сообщений: 24
	04.12.2017, 16:40 [ТС]	3
	спасибо 0

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	04.12.2017, 19:15	4
	Ах да, смотреть лучше английскую версию, на русской есть ошибки. 1

Вывести на экран случайные из заданных чисел

Решение