Fisier Text         

                                  
Un fișier text este un tip de fisier în care datele sunt stocate ca o secvență de caractere, într-o codificare predefinită (de obicei ASCII, dar mai recent și Anicode). Este un tip canonic de fișier unde datele sunt stocate ca "secvențe de biti" (binar). Nu orice fișier binar este un fișier text. Prin definire, un fișier text este codificat unitar, conținutul său fiind lizibil și editabil direct, prin intermediul unui editor simplu de text (Notepad, emacs, gedit etc.).

Problema:
Se dă fişierul text numere.txt care conţine pe primul rând o valoare naturală nenulă n (n<=30000) şi pe al doilea rând n valori întregi de cel mult 4 cifre separate prin unul sau mai multe spaţii. Se cere să se calculeze suma elementelor pare de pe al doilea rând din fişier.
Rezolvare:

Uses CRT;

var f:text;

n,i,s,x:integer;

begin

assign(f,’numere.txt’);

reset(f);

readln(f,n);

s:=0;

for i:=1 to n do

begin

read(f,x);

if x mod 2=0 then s:=s+x

end;

writeln(‘Suma este: ‘,s);

close(f)

end.