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. -determinare a valorilor 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 este principial corect, dar nu oferă rezultatul cerut pentru toate seturile de date de intrare. (***) Se acordă punctajul numai pentru un algoritm liniar care utilizează eficient memoria. O soluție posibilă citește prima valoare din fișier (x), apoi, pe măsura citirii celorlalte valori, memorează valoarea curentă (crt), și penultima valoare citită (ant), precum și ultimele două numere cu proprietatea cerută (pu și u, inițializate cu -1); ant se actualizează la fiecare pas (ant=crt), iar pu și u se actualizează doar dacă crt mod 1000=x și ant mod 1000=x (pu=ant și u=crt). ¹⁾ Corectitudinea globală vizează structura, sintaxa, alte aspecte neprecizate în barem.