Две файл.В первой строке количество чисел n,во второй строке n чисел через пробел.Найти количество четных чисел.Результат вывести в новый файл.
(ПАСКАЛЬ АБЦ,решение для уровня 9-ого класса,прошли только строки).
15 баллов.

Вот тебе пример)

while not EOF(FTemp) do

 begin

     ReadLn(FTemp, S);

     WriteLn(FT, S)

 end;

 {    Закрытие входного файла     }

 Close(FT);

 {    Усечение размера временного файла до 0      }

 Rewrite(FTemp);

 {    Закрытие временного файла       }

 Close(FTemp)

end;