Дм
Дмитрий
var i,j:integer; a:array[1..5,1..4]of integer;
begin
randomize; for i:=1 to 5 do for j:=1 to 4 do a[ i,j]:=random(100);
for i:=1 to 5 do begin for j:=1 to 4 do write(a[ i,j]:4); writeln end; readln
end.
Если ещё актуально, пиши на почту, помогу.