[Bargest]

Код:

var mas:array [1..4,1..4] of integer;
i,j:integer;
begin
for i := 1 to 4 do
  for j := 1 to 4 do
    mas[i,j] := random(10);
for i := 1 to 4 do
  for j := 1 to 4 do
    StringGrid1.Cells[j-1,i-1]:=IntToStr(mas[i,j]);
end;

123432.png
Вот зачем обращаться за помощью, если её даже не слушать?