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 valorii 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), precum și ultimul număr cu proprietatea cerută (u, inițializat cu -1); u se actualizează doar dacă crt mod 1000=x (u=crt). ¹⁾ Corectitudinea globală vizează structura, sintaxa, alte aspecte neprecizate în barem.