var
a: array of real;
x:array [1..1000,1..1000] of integer;
n,m :integer;
i,j,k :integer;
sum : real;
begin
  writeln('Введите n: ');
  readln(n);
  setlength(a, n + 1);

  writeln('Введите m: ');
  readln(m);

  for i:=1 to m do
   begin
   for j:=1 to n do
   begin
   x[i,j]:=random(9);
   end;
   end;



 for k := 1 to n do
 begin

   sum := 0;
   for i:=1 to m do
   begin
   for j:=1 to n do
   begin
   sum := sum + (2 + cos(power(x[i,j], 3)));
   end;
   end;

   a[k] := sum / (ln(k+1)/ln(10));
   writeln(a[k]); // выводим созданный элемент массива
 end;
end.