Две задачи на типизированные файлы не решаемы уже давно. Подскажите варианты решения

[GorNikSar]

Помогите решить две задачи:

1. Создать типизированный файл, содержащий целые числа. Из компонентов исходного файла целых чисел сформировать массивы чётных и нечётных чисел.

2. Создать типизированный файл, содержащий слова. Заменить заданным значением (новое слово вводится с клавиатуры) третье слово.

[Stilet]

не решаемы уже давно

Напротив. Недавно подобные задачи всплывали.

Сам то как думаешь решать? и на каком языке то?

[GorNikSar]

Не решаемы давно как раз мною. Не совсем точно сформулировал. А язык - Delphi.

[Stilet]

Ладно. Намекну.

Создать типизированный файл

var f:file of integer;i;integer;
...
begin
 assignFile(f,'File');rewrite(f);
 for i:=1 to 10 do write(f,i);
 closefile(f);
end;
...

Из компонентов исходного файла целых чисел сформировать массивы чётных и нечётных чисел.

var c,n:array of integer; i:integer;
...
begin
 assignFile(f,'File');reset(f);
  while not eof(f) do begin
   read(f,i);
   if i mod 2=0 then begin 
    setlength(c,length(c)+1); c[high(c)]:=i;end
  else begin
   setlength(n,length(n)+1) 
   n[high(n)]:=i;
  end;
  end;
 closefile(f);
end;
...

Код не проверял но смысл надеюсь ясен.

[stiv73]

Смысл задач понятен. Могу помочь. Пиши в асю 402114052 с 18 до 20