Массив одинаковых чисел

[nonrblGyN4ik]

Всем привет, вообще есть такая задача, заполнить двумерный массив ,размером 4*5, числам 1,2,3,4 ,но что бы каждое число встречалось по 4 раза.

например:
1 2 4 1
3 4 2 1
2 4 3 3
1 2 4 3

вроде бы придумал алгоритм, но все время выскакивает ошибка Unknown picture file extension (.

Если заполнять просто числами от 1-4 , то все работает нормально.
Спасибо, если кто-то сможет помочь

[Stilet]

вроде бы придумал алгоритм

Ну показывай свой алгоритм )

[nonrblGyN4ik]

Сильно не кричите, я далеко не умный
изначально
a = 4
q = ture

for i:=1 to 4 do
    for j:=1 to 5 do
      begin
        n := random(4)+1;
        if mas[i,j] = 0 then
            case n of
              1: begin
                     begin
                       if q then
                         begin
                           mas[i,j] := 1;
                           a := a -1;
                           if a = 0 then q := false;
                         end;
                     end;
                 end;
            end;
      end;

[Stilet]

Мдя...

var i,j,k:integer;
...
//Заполняем
for i:=1 to 5 do  for j:=1 to 4 do  mas[i,j]:=i;

//Перемешиваем
for i:=1 to 5 do  for j:=1 to 3 do begin
  if random(3)<random(3) then begin
   k:=mas[i,j];mas[i,j]:=mas[i,j+1];mas[i,j+1]:=k;
  end;
end;

Код с потолка, но попробовать можно.

[Serge_Bliznykov]

да заполнить массив четыре раза цифрами от 1 до 4
потом перемешать.
всё, profit!


Добавлено
уп-с! перечитал условия задачи..

двумерный массив ,размером 4*5, числам 1,2,3,4 ,но что бы каждое число встречалось по 4 раза.

если это не ошибка и не опечатка, то задача НЕ РЕШАЕМА! 4*5 = 20. а чисел 4*4 = 16
Поэтому либо числа в массиве должны быть от 1 до 5, либо массив 4x4