Fișiere text: citire, scriere și problema mare

Operațiile cu un fișier text

reset deschide un fișier care există deja, pentru citire. rewrite creează fișierul de ieșire, iar dacă el există, îi șterge conținutul. Închiderea cu close este obligatorie la scriere: fără ea, ultimele date pot rămâne nescrise.

Cum arată datele în teste
Fișierul de intrare are, aproape întotdeauna, aceeași formă: pe prima linie un număr întreg $n$, apoi $n$ linii sau $n$ valori. De aici și ordinea din program:

1. 1)deschizi fișierul de intrare
2. 2)citești $n$ de pe prima linie
3. 3)repeți de $n$ ori citirea unei linii sau a unei perechi de valori
4. 4)calculezi
5. 5)scrii rezultatul în fișierul de ieșire, în formatul cerut
6. 6)închizi ambele fișiere

readln trece la linia următoare după citire, deci se folosește când fiecare valoare este pe rândul ei; read lasă cursorul pe același rând și se folosește când pe o linie sunt mai multe valori.

Formatul ieșirii
Citește cerința până la capăt: „două numere separate prin spațiu” sau „câte o linie pentru fiecare elev” sunt condiții punctate separat. În Pascal spațiul se scrie explicit, writeln(f, k, ' ', c), iar trecerea la rând nou se face cu writeln, nu cu write.

Unde sunt punctele
La itemul de 16 puncte al profilului real, punctele stau astfel: 1 pentru declarații, 1 pentru antetul funcției cerute, 1 pentru operațiile cu fișierul, 1 pentru citirea lui $n$, 1 pentru instrucțiunea repetitivă, 1 pentru citirea datelor, 1 pentru apelul funcției, iar restul pentru pașii algoritmului și pentru scrierea corectă în fișier, unde până și spațiul dintre valori are punctul lui. De aceea un program neterminat, dar cu fișiere deschise corect și cu antetul funcției scris, adună puncte reale.

Tabloul
Când rezultatul cere toate datele deodată, le păstrezi într-un tablou: var c : array[1..50] of integer; în Pascal, int c[51]; în C++. Dimensiunea se ia din limita superioară dată în enunț, de exemplu $n\le 50$.

Structura completă, în Pascal

assign(fin, 'date.in'); reset(fin);
assign(fout, 'date.out'); rewrite(fout);
readln(fin, n);
for i := 1 to n do readln(fin, a[i]);
writeln(fout, rezultat);
close(fin); close(fout);