Программа для заполнения двумерного массива рандомными неповторяющимися числами.
CONST N = 5; // Размер массива
var rand,i,j:byte;
mass:array[1..N,1..N] of byte; //Объявляем массив
m:set of byte; //множество для определения повторяющихся чисел в массиве
begin
m:=[];
randomize; //блок для вкл. рандома
for i:=1 to N do
for j:=1 to N do
begin
repeat
rand:=random(N*N*2)+1;
until not (rand in m); ///Делаем до тех пор, пока цифра не найдется в множестве
m:=m+[rand];
mass[i,j]:= rand;
end;
///Вывод массива
for i:=1 to N do
begin
for j:=1 to N do
begin
write(' '+mass[i,j]:4);
end;
writeln;
end;
end.