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

9. Sm : integer;

10. Idx : Arr2;

11. Chisla: Arr;

12. fnd : boolean;

13. tf:TEXT;

14. S,St:string;

15. Procedure Info(var ft:TEXT);

16. begin

17. writeln('**********************************************************');

18. writeln('**** КУРСОВАЯ РАБОТА ПО ПРОГРАММИРОВАНИЮ ****');

19. writeln('** **');

20. writeln('** Задана последовательность из n чисел **');

21. writeln('** Выбрать в последовательности несколько таких чисел, **');

22. writeln('** чтобы их сумма делилась на m. **');

23. writeln('**** ****');

24. writeln('**********************************************************');

25. writeln;

26. writeln(ft,'********************************************************');

27. writeln(ft,'**** КУРСОВАЯ РАБОТА ПО ПРОГРАММИРОВАНИЮ ****');

28. writeln(ft,'** **');

29. writeln(ft,'** Задана последовательность из n чисел **');

30. writeln(ft,'** Выбрать в последовательности несколько таких чисел, **');

31. writeln(ft,'** чтобы их сумма делилась на m. **');

32. writeln(ft,'**** ****');

33. writeln(ft,'********************************************************');

34. writeln(ft,'');

35. end;

36. {процедура суммирует числа с номерами, которые заданы в строке nom массива Idxs}

37. Function Summ(Chisla:Arr;Idxs:Arr2;m,nom:integer):integer;