Const
 A=15;
 O=8;
 P=12;

Var
 X:Array[1..A] of Integer;
 Y:Array[1..O,1..P] of Integer;
 X_M:Real;
 i,j:byte;

Begin
 Randomize;
 X_M:=0;
 Writeln('Vector:');
 for i:=1 to A do
  begin
   X[i]:=Random(15);
   Write(X[i]:4);
   X_M:=X_M+X[i]/A;
  end;
 Writeln;
 Writeln('Arithmetic mean = ',X_M:0:3);
 Writeln;
 Writeln('Initial matrix:');
 for i:=1 to O do
  begin
   for j:=1 to P do
    begin
     Y[i,j]:=Random(10);
     Write(Y[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 Writeln('New matrix:');
 for i:=1 to O do
  begin
   for j:=1 to P do
    begin
     if ((i+j) mod 2 = 0) and (Y[i,j]>X_M) then Y[i,j]:=Y[i,j]*3;
     Write(Y[i,j]:4);
    end;
   Writeln;
  end;
 Readln
End.