Egy tömbben megadott elemeket miként lehet átrakni mátrixba úgy, hogy a program figyeljen rá: hány elemet adtak meg és ha kevesebbet mint amivel a mátrixot ki lehetne tölteni akkor ne tegye bele?

Mivel az atw csak folyamatba helyezte a visszaállítást, így ide másolom az én verziómat:

program project1;

var

t : array of integer;

m : array [1..6, 1..6] of integer;

i, n, k, tujmeret, meretx, merety : integer;

function szambe(hanyadik: integer) : integer;

var s: string;

szam, hiba: integer;

begin

hiba := -1;

while hiba <> 0 do

begin

Write('Kerem a(z) ', hanyadik, '. szamot: ');

ReadLn(s);

Val(s, szam, hiba);

end;

Result := szam;

end;

begin

meretx := Length(m);

merety := Length(m[0]);

i := 0;

repeat

Inc(i);

SetLength(t, i);

t[i - 1] := szambe(i);

until (t[i - 1] = 0);

Dec(i);

tujmeret := meretx * merety;

SetLength(t, tujmeret);

if tujmeret > i then

begin

n := 0;

while i + n < tujmeret do

begin

t[i + n] := t[n];

Inc(n);

end;

end;

k := 0;

for i := 1 to meretx do

for n := 1 to merety do

begin

m[i, n] := t[k];

Inc(k);

end;

SetLength(t, 0);

for i := 1 to meretx do

begin

for n := 1 to merety do Write(m[i, n]:10);

WriteLn;

end;

ReadLn;

end.