Задача на работу, с текстовыми фаилами Опции

[szuser]

Помогите, надо срочно решить

Составить программу, реализующую конкретную схему действий.
В содержимое программы должна входить продцедура формирования исходного фаила нужного числа, вывод на экран элементов фаилов F1 и F2.
Дан фаил целых чисел F1. Получить фаил F2. Найти среднее арифметическое компонентов фаила F1.
В фаил F2 поместить все компоненты большие среднего арифметического.

[virt]

var sr : longint;
    i,k : longint;

begin
   read(n);
   sr := 0;
   for i := 1 to n do 
   begin
      read(F1,k);
      sr := sr + k;
   end;
   sr := sr div n;
   for i := 1 to n do
      begin
         read(F1,k);
         if k > sr then write(F2,k,' ');
      end;
end.

[szuser]

var sr : longint;
    i,k : longint;

begin
   read(n);
   sr := 0;
   for i := 1 to n do 
   begin
      read(F1,k);
      sr := sr + k;
   end;
   sr := sr div n;
   for i := 1 to n do
      begin
         read(F1,k);
         if k > sr then write(F2,k,' ');
      end;
end.

Спасибо
Вот только я непонял что такое n?

Как я понял это основная часть кода.
Я покажусь наглым, но нельзя ли всю программу сразу?

Сообщение отредактировано: szuser - 23.11.2005 18:18

[klem4]

Virt забыл описать ее просто ... добавь в раздел var n : integer; ну а само n - колво чисел видимо ...

[szuser]

Virt забыл описать ее просто ... добавь в раздел var n : integer; ну а само n - колво чисел видимо ...

Я так и сделал, но в программе нету работы с фаилами, а это основное что вызывает у меня трудности (лекции еще небыло)

[volvo]

в программе нету работы с фаилами

А это что?

read(F1,k);

Ты как описал эту переменную? Должно быть

Var f1: file of integer;

[szuser]

А это что?

Открытие F1, создание F2 и их закритие

Сообщение отредактировано: szuser - 23.11.2005 18:31

[volvo]

szuser, ну, открой F1, создай F2 и закрой оба...

Assign(f1, 'in.dat'); Reset(f1);
Assign(f2, 'out.dat'); Rewrite(f2);
...
Close(f1); Close(f2);

а в следуюший раз, если у тебя проблема именно с файлами, то не переписывай полностью задание, а спроси, как открыть/закрыть файл. Ты написал задание, тебе дали АЛГОРИТМ его решения. Задач "под ключ" здесь не решают...