Генерация последовательностей

@987654 · Регистрация: 23.11.2009

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

Сгенерировать две последовательности по 50 случайных чисел равномерным распределением в диапозоне [1..6], полученные последовательности разложить в одном массиве по возрастанию

Psilon · 20.03.2012, 18:08

Delphi

const
   N=50;
var
   a,b:array [1..N] of byte;
   i:1..N;
randomize;
for i:=1 to N do
   begin
      a[i]:=random(5)+1;
      b[i]:=random(5)+1;
   end;
end.

Для сортировки воспользуйтесь любой соритровкой (пузырьком например, он для 100 элементов достаточен).

@987654 6 / 5 / 0 Регистрация: 23.11.2009 Сообщений: 83
		1
	Генерация последовательностей 20.03.2012, 13:03. Показов 1443. Ответов 1 Метки нет (Все метки) Сгенерировать две последовательности по 50 случайных чисел равномерным распределением в диапозоне [1..6], полученные последовательности разложить в одном массиве по возрастанию 0

	20.03.2012, 18:08

Опции темы

Генерация последовательностей

Решение