Cerința
8 puncteScrieți programul Pascal corespunzător algoritmului proiectat. (8p.)

Arată baremul
b. Pentru program corect - 8p. -operații cu fișiere: declarare, pregătire în vederea citirii, citire din fișier - 1p. -verificare a proprietății cerute (*),(**) - 5p. -utilizare a unui algoritm eficient (***) - 1p. -declarare a variabilelor, afișare a datelor, corectitudine globală a programului¹⁾ - 1p. (*) Se acordă punctajul chiar dacă algoritmul ales nu este eficient. (**) Se acordă numai 3p. dacă algoritmul parcurge pașii necesari rezolvării, dar cu detalii care conduc la o rezolvare parțială. (***) Se acordă punctajul numai pentru un algoritm liniar. O soluție posibilă utilizează un vector de apariții pentru cercei, ac, în care acᵢ (i∈[11,99]) este 1 dacă există cel puțin o bijuterie (cercei) cu codul x pentru care i=[x/10] (dacă x∈[111,999]) sau i=x (dacă x∈[11,99]). Vectorul ac se completează pe măsura citirii datelor referitoare la cercei, iar la parcurgerea datelor referitoare la pandantive, pentru fiecare etichetă, p, se determină primele două cifre ale sale, p1 și p2 și numerele i și j, unde i=p1*10+p2, iar j=p2*10+p1, iar rezultatul este DA, în cazul în care există cel puțin o valoare p pentru care acᵢ sau acⱼ sunt nenule, sau este NU, în caz contrar. ¹⁾ Corectitudinea globală vizează structura, sintaxa, alte aspecte neprecizate în barem.