Нужно доделать прогу. Есть файл последовательного доступа (у меня он file of integer), записать в него N целых чисел полученых с помощью генератора чисел. Это я уже сделал. Мне нужно помочь с этим: подсчитать количество пар противоположных чисел среди компонентов этого файла.
Кто чтото знает говорите. Очень нужно!
Вот текст:
program ex1263; uses crt; var f: file of integer; a,n,i: integer; begin clrscr; randomize; for i:= 1 to 10 do begin assign(f,'num.dat'); rewrite(f); n:=random(10)-9; a:=n+i; write(f,a); close(f); end; readln; end.
мисс_граффити
28.06.2007 18:46
Цитата
Есть файл последовательного доступа (у меня он file of integer)
Так не бывает... Или последовательного доступа, или типизированный
faktorX
28.06.2007 18:55
а какой тогда файл последовательного доступа? Обьясни если не сложно.
мисс_граффити
28.06.2007 20:05
текстовый (f: text)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.