------------ 1 -----------------
const
  n = 10;

var
  x: array[1..n] of integer;
  y: array[1..n, 1..n] of real;
  i, j: integer;

begin
  Randomize;
  Write('Исходный массив: ');
  for i := 1 to n do
  begin
    x[i] := Random(100) + 1;
    Write(x[i]:3)
  end;
  Writeln(#13#10, 'Результирующий массив');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      y[i, j] := ln(abs(x[i] * x[j]));
      Write(y[i, j]:7:4)
    end;
    Writeln
  end
end.

Тестовое решение:

Исходный массив:  32  1 99 38 12 60 90  4 98 21
Результирующий массив
 6.9315 3.4657 8.0609 7.1033 5.9506 7.5601 7.9655 4.8520 8.0507 6.5103
 3.4657 0.0000 4.5951 3.6376 2.4849 4.0943 4.4998 1.3863 4.5850 3.0445
 8.0609 4.5951 9.1902 8.2327 7.0800 8.6895 9.0949 5.9814 9.1801 7.6396
 7.1033 3.6376 8.2327 7.2752 6.1225 7.7319 8.1374 5.0239 8.2226 6.6821
 5.9506 2.4849 7.0800 6.1225 4.9698 6.5793 6.9847 3.8712 7.0699 5.5294
 7.5601 4.0943 8.6895 7.7319 6.5793 8.1887 8.5942 5.4806 8.6793 7.1389
 7.9655 4.4998 9.0949 8.1374 6.9847 8.5942 8.9996 5.8861 9.0848 7.5443
 4.8520 1.3863 5.9814 5.0239 3.8712 5.4806 5.8861 2.7726 5.9713 4.4308
 8.0507 4.5850 9.1801 8.2226 7.0699 8.6793 9.0848 5.9713 9.1699 7.6295
 6.5103 3.0445 7.6396 6.6821 5.5294 7.1389 7.5443 4.4308 7.6295 6.0890

------------ 2 -----------------
const
  m = 10;
  n = 15;

var
  x: array[1..m, 1..n] of real;
  i, j: integer;
  s, t: real;

begin
  Randomize;
  Writeln('Исходный массив');
  s := 0;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      x[i, j] := 3 * Random - 1.5;
      Write(x[i, j]:8:4);
      t := cos(x[i, j]);
      s := s + t * sqr(t)
    end;
    Writeln
  end;
  Writeln('Сумма кубов косинусов равна ', s:0:6)
end.

Тестовое решение:

Исходный массив
 -0.2187 -0.5951  1.3657 -1.0562  1.2502 -0.2753 -0.8674 -0.4614 -1.4726  1.1185  1.4685  0.0452  0.4469  0.4898  1.3696
  0.2010 -1.4905 -0.8353 -0.6026  0.3862  0.2519  0.2597  1.1894 -0.1067 -1.4395 -0.0223  0.6017  1.0808 -1.3084 -1.4005
  0.6278  1.1992  0.4403  0.1185  0.1398 -1.0720 -1.3641 -1.3985  0.8810 -0.9891  1.3972 -1.4222 -0.7864  0.3530 -0.5779
 -1.2564 -0.8369 -0.0998 -0.4456 -1.1314  0.1610 -0.4732 -0.4203  0.9459  1.3754  1.0216 -0.2845 -0.0276 -1.1167 -0.2275
  0.6230 -0.4482 -0.6530  1.4278 -1.0092 -1.2307  1.1049 -1.1715 -1.1500  0.9416  0.0651  1.4080 -0.2163 -1.1135  0.4891
  0.1740 -0.4539 -0.6636 -1.0289  1.3169 -0.6853 -0.7985  0.0264  1.3231 -0.0614 -0.3990  0.1194  0.9944  0.2431  0.6182
  0.7125  0.1635  1.2182 -0.3915 -0.1121  0.3454  0.7308 -0.7142 -0.1378 -0.8472 -0.8613 -1.1654 -0.4498  0.1128  0.3034
  0.2530  1.2431 -0.8067 -1.0432 -0.2986 -0.0245 -1.1208 -0.4987 -0.9337 -1.0421 -0.0785  1.0254 -0.4761 -0.0107  0.8898
  0.1499 -1.3895  0.0854 -0.2682 -1.2709  1.4017 -1.3102 -1.3248  0.4986 -1.3563  0.9432 -1.2396  0.9741  1.3184  0.6782
 -1.0199  1.1513  1.4136 -0.4804  1.1856 -0.1421 -0.5739  0.5376 -0.9583 -0.8572  0.3333 -0.8378  0.6519 -0.8493  1.4664
Сумма кубов косинусов равна 66.756094


------------ 3 -----------------
const
  m = 10;
  n = 15;
  l = 10;

var
  x: array[1..m, 1..n] of real;
  a: array[1..l] of real;
  i, j, k: integer;
  s: real;

begin
  Randomize;
  Writeln('Исходный массив');
  s := 0;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      x[i, j] := 3 * Random - 1.5;
      Write(x[i, j]:8:4);
      s := s + sqr(sin(x[i, j]))
    end;
    Writeln
  end;
  Writeln('*** Массив а ***');
  for k := 1 to l do
  begin
    a[k] := s / exp(k + 1);
    Write(a[k]:8:4)
  end
end.

Тестовое решение:

Исходный массив
  1.1486  0.2294 -0.8231 -0.5956 -0.7856 -0.0759  1.0568 -0.8975 -0.2205  0.1224  0.0543 -0.3248  0.1451 -0.7220  0.7678
 -0.8508  0.8543  0.8392  0.2907 -1.1343 -0.6336 -0.4254  0.2713 -1.0469  1.2481 -0.3818 -0.8195  0.6308  1.0924  1.3670
 -1.0467 -0.3276 -0.9290  0.4886 -0.4347  0.8580 -0.1192  0.0149 -0.7766 -0.5367  0.7236  0.7595 -0.8516 -0.2820 -0.0321
 -0.7073 -1.1621 -0.0565  1.2945 -1.1396  1.4757  0.6722 -0.2035  1.4119  0.6107  0.0740  1.4581 -1.2761 -0.3436  1.0962
 -0.7564 -1.0740 -0.4900 -0.0874 -0.3309 -1.1181 -0.8958  1.1565  1.2127  1.4098  0.7684 -0.6606  0.1158 -0.6726 -0.3578
  0.1070 -1.0737 -0.9468  0.4852  0.4553 -0.7197  0.7369  0.8363  0.7320  1.3913 -0.2189  1.3759 -0.8409  1.3779  0.9913
  0.8999 -0.3430 -1.1415 -0.3728 -1.2803  0.2975 -0.2506  0.7358 -1.4511 -0.4141 -1.3115 -0.8186  0.2308  1.3847 -0.4079
  0.6363 -0.9436 -1.0308  0.2697 -0.9962 -0.3523  0.9049 -0.2614  0.7010  0.3159  0.0066 -0.4103  0.2780  0.0213  1.3881
 -0.9939  1.4451  1.2786 -1.2785 -0.9901 -0.3886 -1.0191 -1.0114 -0.8924  0.8446 -1.1424 -0.3096 -0.9957 -0.6007  0.2668
 -1.4011 -0.9939  0.9516 -0.3601 -0.7450 -0.7754  0.9067  0.3894  0.8741 -0.1564  1.4950  1.4183 -0.3425  0.8113  0.2131
*** Массив а ***
  9.3552  3.4416  1.2661  0.4658  0.1713  0.0630  0.0232  0.0085  0.0031  0.0012

------------ 4 -----------------

begin
  Randomize;
  Writeln('Исходный массив');
  s := 0; k := 0;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      x[i, j] := Random(101) - 50;
      Write(x[i, j]:4);
      if x[i, j] > 0 then
      begin
        s := s + x[i, j];
        k := k + 1
      end
    end;
    Writeln
  end;
  Writeln('Положительных элементов- ', k, ', их cумма равна', s:6)
end.

Тестовое решение:

Исходный массив
 -29  18  42  14 -26  42 -45  36 -38  34  44 -32 -11  26   9
 -15 -42  30 -15   2  48  35   3  36  17  23 -28 -30 -25  32
 -32 -38  -3 -50  -7  12   5 -41 -17 -49  26 -41  50  35 -22
  47   4 -12  14  50  25  -1 -34  21 -35 -13 -35 -44  47   2
  19  36  10 -19  16  32  22 -11 -17  48  31  50  -4 -17  27
  39  35  18   7  20 -32  35   7 -25 -44  19  47  27  36 -45
  -4  -2 -38  32 -18  41  -1  19 -31  -3 -25 -35 -46  16 -31
  26 -48  33  45 -23   3  -3  -1 -24 -17  35 -22 -15 -26  47
  36  46   4 -23   1 -18  37  14 -50  36 -11 -34  -1 -40  -6
 -47  30  41 -44 -19  16 -37  32   8   3  50  50  36  -1  -2
Положительных элементов- 78, их cумма равна  2147