TN Library ?? SOP - Macrogen
Examen de BP de 28/05/2013. Examen 9h30 : program EX6_2013;. uses wincrt;.
type tab=array[1..25]of integer;. var N:integer;. T:tab;. {*** saisir N ***}. procedure
saisie(var N:integer);. begin. repeat. writeln('donner N '); readln(N);. until(N in[5..
25]) ;. end;. {*** remplir le tableau T de N entiers *** }. procedure remplir(var T:tab
...