Работа с файлами..

[Neversmilе]

Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Найти количество удвоенных нечетных чисел среди компонент файла.
Нужна полная программа.. нашел одну на вашем форуме, дак ошибка на ошибке выходит..

[Serge_Bliznykov]

прямо и не знаю, что проще - просить Вас привести найденный вами код программы, ошибки, которые она выводит, заставить Вас разобраться в коде и довести решение до ума или просто взять и написать готовый код?!!
впрочем, Вы даже не знаете основ Паскаля, Вы даже готовую функцию не смогли вызвать в прошлой своей теме, поэтому, думаю, что процесс обучения может сильно затянуться!

изучайте:

var f: file of integer;
  i, n, a, count : integer;
begin
  Randomize;
  WriteLn('Skolko chisel sozdat v faile: ');
  ReadLn(n);
  Assign(f, 'D:\file1.bin');
  Rewrite(f);
  for i:=1 to n do begin
    a := 1+Random(100); {случайные числа от 1 до 100}
    Write(f,a); {запись числа в файл}
  end;
  close(f);
  { ------------- конец первой части - файл создан и заполнен ----------- }

  {-- выведем файл полностью на экран}
  Write('Chisla v faile: ');
  Reset(f);
  While Not Eof(f) do begin
     Read(f, a);
     Write(a,' ');
  end;
  Close(f);
  WriteLn;
  { ------------- конец вывода файла на экран ---- }

  {подсчитаем количество количество удвоенных нечетных чисел
    ВНИМАНИИЕ! Подсчёт в учебных целях вынесен отдельно в дополнительный цикл,
    хотя, конечно, его проще добавить в тот цикл, где мы выводим содержимое файла!
    }
  count:=0;
  Reset(f);
  While Not Eof(f) do begin
     Read(f, a);
     if Not Odd(a) then
       if Odd(a div 2) then Inc(count);
  end;
  Close(f);
  WriteLn('kolichestovo udvoennykh nechetnykh chisel = ', count);
  ReadLn
end.

[Neversmilе]

Спасибо, я просто не дошел еще до этой темы.. Вот.. А с функциями, я правда не очень разобрался

[Serge_Bliznykov]

Пожалуйста.
Доходите, конечно. Дорогу осилит идущий!