Заполнить двухмерный массив: 12 24 108 120 11 23 107 119 2 14 98 110 1 13 97 109

164

348

Посмотреть ответы 2

Ответы на вопрос:

Str1x0

Информатика

4,5(46 оценок)

Const n=12; m=10; var a: array[1..n,1..m] of integer; i,j,k: integer; begin k: =0; for j: =1 to m do for i: =n downto 1 do begin k: =k+1; a[i,j]: =k; end; for i: =1 to n do begin for j: =1 to m do write(a[i,j]: 4); writeln; end; end. результат: 12 24 36 48 60 72 84 96 108 120 11 23 35 47 59 71 83 95 107 119 10 22 34 46 58 70 82 94 106 118 9 21 33 45 57 69 81 93 105 117 8 20 32 44 56 68 80 92 104 116 7 19 31 43 55 67 79 91 103 115 6 18 30 42 54 66 78 90 102 114 5 17 29 41 53 65 77 89 101 113 4 16 28 40 52 64 76 88 100 112 3 15 27 39 51 63 75 87 99 111 2 14 26 38 50 62 74 86 98 110 1 13 25 37 49 61 73 85 97 109