помогите пожалуйста. Паскаль абц

+ 0 -

Kotenok57

20 апр. 2016 г., 23:54:29 (8 лет назад)

Решение в приложении!

+ 0 -

Oilala

21 апр. 2016 г., 2:07:09 (8 лет назад)

const
  n = 100;

var
  A, B: array[1..n] of integer;
  i, j: integer;

begin
  Randomize;
  for i := 1 to n do A[i] := Random(100) - 51;
  for i := 1 to 50 do B[i] := A[i + 50];
  for i := 51 to 100 do B[i] := A[i - 50];
  writeln('Результаты работы программы:');
  for i := 1 to 5 do
  begin
    for j := 20 * (i - 1)+1 to 20 * i do write(j:4);
    writeln;
    for j := 20 * (i - 1)+1 to 20 * i do write(A[j]:4);
    writeln;
    for j := 20 * (i - 1)+1 to 20 * i do write(B[j]:4);
    writeln;
    writeln
  end
end.

Результаты работы программы:
   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17  18  19  20
  24  26  39  40 -33 -20 -23  23 -34 -30 -23 -20  23  30  37 -16   0  31  11 -22
  31   8 -50  -6  -4 -44  18 -28 -47 -16   4  39  23 -14 -13 -18  35 -13 -14 -22

  21  22  23  24  25  26  27  28  29  30  31  32  33  34  35  36  37  38  39  40
 -26  17 -43  16  35  31  24 -14 -51  28  31  44  -7 -15  -7   8  -2 -48  -8  11
  35  -3 -12  48  35 -15   5   0  12   9 -38 -27  35 -11  45 -29  43  47  37 -15

  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60
  -9  38 -40   5 -48 -25  18  -1  -1   8  31   8 -50  -6  -4 -44  18 -28 -47 -16
  39 -25  47 -44 -45   0 -36  23 -34  19  24  26  39  40 -33 -20 -23  23 -34 -30

  61  62  63  64  65  66  67  68  69  70  71  72  73  74  75  76  77  78  79  80
   4  39  23 -14 -13 -18  35 -13 -14 -22  35  -3 -12  48  35 -15   5   0  12   9
 -23 -20  23  30  37 -16   0  31  11 -22 -26  17 -43  16  35  31  24 -14 -51  28

  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 100
 -38 -27  35 -11  45 -29  43  47  37 -15  39 -25  47 -44 -45   0 -36  23 -34  19
  31  44  -7 -15  -7   8  -2 -48  -8  11  -9  38 -40   5 -48 -25  18  -1  -1   8

const
  m = 50;
  n = 30;

var
  a: array[1..m, 1..n] of integer;
  i, j, nmax, nmin: integer;

begin
  nmax := -1000;
  nmin := 1000;
  Randomize;
  for i := 1 to m do
    for j := 1 to n do
    begin
      a[i, j] := Random(2001) - 1000;
      if nmin > a[i, j] then nmin := a[i, j];
      if nmax < a[i, j] then nmax := a[i, j]
    end;
  writeln('Минимальное значение= ', nmin, ', максимальное= ', nmax);
end.

Тестовое решение:
Минимальное значение= -1000, максимальное= 1000