Две файл.в первой строке количество чисел 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;