fork download 
  1. program TransferArrayElements;
  2.  
  3. const
  4.   ROWS = 100; // количество строк
  5.   COLS = 6;   // количество столбцов
  6.  
  7. type
  8.   TDataArray = array[0..ROWS-1, 0..COLS-1] of Integer; // двумерный массив
  9.   TStateArray = array[0..ROWS-1] of Word; // одномерный массив
  10.  
  11. var
  12.   aData: TDataArray; // объявляем двумерный массив
  13.   aState: TStateArray; // объявляем одномерный массив
  14.   i: Integer;
  15.  
  16. begin
  17.   // Инициализация двумерного массива aData
  18.   for i := 0 to ROWS - 1 do
  19.   begin
  20.     aData[i, 0] := i;          // заполняем значения
  21.     aData[i, 1] := i + 10;     // второй элемент
  22.     aData[i, 2] := i + 20;     
  23.     aData[i, 3] := i + 30;     
  24.     aData[i, 4] := i + 40;     
  25.     aData[i, 5] := i + 50;     
  26.   end;
  27.  
  28.   // Перекладка второго элемента каждой строки в одномерный массив aState
  29.   for i := 0 to ROWS - 1 do
  30.   begin
  31.     aState[i] := Word(aData[i, 1]); // перенос второго элемента
  32.   end;
  33.  
  34.   // Для проверки можем вывести значения из aState
  35.   for i := 0 to ROWS - 1 do
  36.   begin
  37.     WriteLn('aState[', i, '] = ', aState[i]);
  38.   end;
  39. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin 
7 21
1 2 547152
1 3 509157
1 4 539282
1 5 541645         
1 6 458433
1 7 385173

2 3 131528
2 4 92735
2 5 150511
2 6 94440
2 7 194542
3 4 216600
3 5 272401
3 6 157176
3 7 124077
4 5 57785
4 6 97323
4 7 242232
5 6 136663
5 7 283862
6 7 147426
stdout 
aState[0] = 10
aState[1] = 11
aState[2] = 12
aState[3] = 13
aState[4] = 14
aState[5] = 15
aState[6] = 16
aState[7] = 17
aState[8] = 18
aState[9] = 19
aState[10] = 20
aState[11] = 21
aState[12] = 22
aState[13] = 23
aState[14] = 24
aState[15] = 25
aState[16] = 26
aState[17] = 27
aState[18] = 28
aState[19] = 29
aState[20] = 30
aState[21] = 31
aState[22] = 32
aState[23] = 33
aState[24] = 34
aState[25] = 35
aState[26] = 36
aState[27] = 37
aState[28] = 38
aState[29] = 39
aState[30] = 40
aState[31] = 41
aState[32] = 42
aState[33] = 43
aState[34] = 44
aState[35] = 45
aState[36] = 46
aState[37] = 47
aState[38] = 48
aState[39] = 49
aState[40] = 50
aState[41] = 51
aState[42] = 52
aState[43] = 53
aState[44] = 54
aState[45] = 55
aState[46] = 56
aState[47] = 57
aState[48] = 58
aState[49] = 59
aState[50] = 60
aState[51] = 61
aState[52] = 62
aState[53] = 63
aState[54] = 64
aState[55] = 65
aState[56] = 66
aState[57] = 67
aState[58] = 68
aState[59] = 69
aState[60] = 70
aState[61] = 71
aState[62] = 72
aState[63] = 73
aState[64] = 74
aState[65] = 75
aState[66] = 76
aState[67] = 77
aState[68] = 78
aState[69] = 79
aState[70] = 80
aState[71] = 81
aState[72] = 82
aState[73] = 83
aState[74] = 84
aState[75] = 85
aState[76] = 86
aState[77] = 87
aState[78] = 88
aState[79] = 89
aState[80] = 90
aState[81] = 91
aState[82] = 92
aState[83] = 93
aState[84] = 94
aState[85] = 95
aState[86] = 96
aState[87] = 97
aState[88] = 98
aState[89] = 99
aState[90] = 100
aState[91] = 101
aState[92] = 102
aState[93] = 103
aState[94] = 104
aState[95] = 105
aState[96] = 106
aState[97] = 107
aState[98] = 108
aState[99] = 109
https://ideone.com/98f9pt
language:
Pascal (fpc 3.0.4)
created:
10 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!