Заполните два массива длинной по 10 элементов каждый случайными целыми числами из диапазона от 10 до 100 так, что бы все 20 чисел

[Вутвут]

Заполните два массива длинной по 10 элементов каждый случайными целыми числами из диапазона от 10 до 100 так, что бы все 20 чисел были различными. Задачу решить 3 методами.

[Serge_Bliznykov]

Сообщение от Вутвут

Задачу решить 3 методами.

О!

я даже знаю какими.
записывайте:
Метод один, метод два, метод три.

Я угадал?!

p.s. что за методы предлагаются? Или какие у Вас есть мысли на этот счёт?

[Вутвут]

Мне информатик сказал решить тремя методами, и все.

[FPaul]

Возможно имелись в виду:
1. Списать
2. Купить
3. Уговорить (родителей, друзей, форум)

[Аватар]

Удалил два кросспоста, у автора ABC

[FPaul]

Сдайте один. Всё равно никто не поверит в ваши знания... А информатику скажите, что ничего не можете и не знаете.

program test;

var
  a, b: array[1..10] of byte;
  used: set of byte;
  r: byte;
  i: integer;
begin
  randomize;
  used := [];
  for i := 1 to 10 do
  begin
    repeat
      r := 10 + random(91);
    until not (r in used);
    a[i] := r;
    include(used, r);
  end;
  for i := 1 to 10 do
  begin
    repeat
      r := 10 + random(91);
    until not (r in used);
    b[i] := r;
    include(used, r);
  end;
  for i := 1 to 10 do
    Write(a[i]: 4);
  writeln;
  for i := 1 to 10 do
    Write(b[i]: 4);
  writeln;
end.

[Poma][a]

Можно слить все в один - там будет a[i] = a[i-1]+Random(сколько-то)+1;
А потом распилить их на два и там размешать..
Можно еще делать это в двух разных сразу. Мол в первом все будут от A до B. 2 - [C;D]. Где эти два отрезка не пересекаются..
А потом рандомно их мешать.