Pascal- .Создание матрицы, у которой все элементы различны.

[Ильгизар102]

Как создать матрицу у которой все элементы будут разными, без повторений.
Не могу понять, каким образом это сделать, в интернете смотрел, там только одномерный массив таким образом заполняют. Помогите, пожалуйста

[Аватар]

а чем двумерный от одномерного отличается? Только еще один вложенный цикл. Можно если сильно хочется и одним циклом заполнить

[Ильгизар102]

Я пробовал так делать, но не получалось, числа некоторые совпадали.
Если вы знаете, как выполнить, уделите время пожалуйста.

[Аватар]

Покажи как делаешь для одномерного массива

[Ильгизар102]

label z;
const
n = 10;

var
m: array [1..n] of integer;
i, k: integer;

begin
randomize;
for i := 1 to n do
begin
z: m[i] := random(1, 10);
for k := 1 to i - 1 do
if m[k] = m[i] then goto z;
end;

for i := 1 to n do
write(m[i]:3);
end.

[Аватар]

const n = 10;
var m: array [1..n,1..n] of Integer;
    i,j,k,i1,i2,j1,j2: Integer;
...
  Randomize;
  //заполнили от числами от 1 до n*n
  for i:=1 to n do
    for j:=1 to n do m[i,j]:=(i-1)*n+j;
  //Перемешали случайно
  for i:=1 to n*n do begin
    i1:=Random(n)+1; j1:=Random(n)+1;
    i2:=Random(n)+1; j2:=Random(n)+1;
    k:=m[i1,j1];
    m[i1,j1]:=m[i2,j2];
    m[i2,j2]:=k;
  end;

random(1, 10)

это в каком паскале?

[Ильгизар102]

Pascal ABC

[Аватар]

не уверен, пусть будет так ))

[Ильгизар102]

Спасибо за помощь, всё работает!