Файлы на ПАСКАЛЕ!!!

[Нана]

Записать в файл последовательного доступа N произвольных натуральных чисел. Переписать в другой файл последовательного доступа те элементы,которые кратны К.

Пожалуйста помогите!!Рбъясните,как это делать!

[MusicMan]

Дак было уже такое вроде...

[MusicMan]

Кратны чему..?

[eoln]

var f1, f2: file of byte;
i, j, b:byte;
const n=10; k=3;
begin
assign(f1,'1.bin');
rewrite(f1);
for i:=1 to n do begin
seek(f1,i);
write(f1,random(10)+1); //пишем n произвольных чисел в файл
end;
close(f1);
reset(f1); // открывает для чтения/записи - можно и без этих 2-х строк
assign(f2,'2.bin');
rewrite(f2);
i:=0;
j:=0;
for j:=1 to n do begin
seek(f1,j); //попутно перемещаемся из начала в конец
read(f1,b); //и читаем его
if b mod k = 0 then //если остаток от деления b на k = 0 то...
begin
inc(i);
seek(f2,i); //увеличиваем размер нового файла
write(f2,b); //и записываем туда это самое b
end;
end;
close(f1);
close(f2);
end.

[МаксимNEWProgramm]

1)считываем из файла N чисес = x
2)if x mod k=0 then выводим результат в другой файл