Soit un tableau TAB ayant N élément d'entiers positifs :
remettre à zéro ce tableau.
Remplir ce tableau.
Calculer et afficher la somme de ses éléments
Compter le nombre d'éléments nuls
le plus grand et le plus petit élément
Voilà l'exercice.

Voilà mon travail :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Program tablea ;
Uses wincrt ;
var
T : array[1..100] of integer ;
i , N, som, Nul, Ptit, Grand : integer ;
 
 
begin
Writeln( 'donner le nombre des cases du tableau') ;
Readln( N ) ;
 
 
for i := 1 to N do 
  writeln( ' donner l''élément n° ', i ) ;
  readln( T[i] );
    if T[i] < 0 then 
       writeln( 'entrer un entire positif' ); 
   else 
       i := i  +1 ;
    end ;
end ;
 
 
 
S:= 0 ;
for i := 1 to N do 
     S:= S + Tab[i] ;
    i := i +1 ;
end ; 
writeln (' la somme des elements est = ' , S) ;
 
 
 
for i := 1 to N do 
       if Tab[i] = 0 then 
            Nul := Nul +1 ;
       End ; 
i := i +1 ;
end; 
writeln(' le nombre des elements nuls est = à : ', Nul ) ;
 
 
 
Min := T[1] ;
Max := T[1] ;
For i := 2 to N do 
        If  T[i] > Max then 
           Min := T[i] ;
        Else
           If Tab[i] < Min then
                  Ptit := Tab[i] ;
              End;
           End;
  i := i +1 ;
 End; 
 Writeln(' l'élémént le plus petit est :' , Ptit);
 Wrteln( 'l'élément le plus grand est : ', Grand) ;
 End ;
End.
erreur 113
a else
erreur dans l'instruction

svp , merci davance
cet exercice corrigé