Курсовая работа: Обработка текстовых файлов

69. until ii=0;

70. end;

71. begin

72. clrscr;

73. assign(tf,'sochet.res');

74. rewrite(tf);

75. INFO(tf);

76. write('Задайте количество чисел n :'); readln(n);

77. while (n<1) or (n>20) do

78. begin

79. write('Ошибочный ввод! Задайте количество чисел n (n>0;n<21):');

80. readln(n);

81. end;

82. write('Задайте числа :');

83. for i:=1 to n do

84. read(Chisla[i]);

85. write('Задайте k (на него должна делиться сумма без остатка) :'); readln(k);

86. fnd:=false;

87. for m:=1 to n do

88. begin

89. GenerateSochet(Idx,n,m,kol);

90. Writeln (' * * * Перебор сочетаний по ',M,' элементов! * * *');

91. Writeln (tf,' * * * Перебор сочетаний по ',M,' элементов! * * *');

92. for i:=1 to kol-1 do

93. begin

94. S:='';

95. for j:=1 to m do

96. begin

97. Str(Chisla[Idx[i,j]],St);