Нужно доделать прогу. Есть файл последовательного доступа (у меня он 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.
а какой тогда файл последовательного доступа? Обьясни если не сложно.
текстовый (f: text)