SVP qui peut m'aider à corriger ce programme ? Et merci
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
program tri_tab;
uses wincrt;
type
tableau= array[1..100]of integer;
var
T:tableau;
i,n,j:integer;
begin
repeat
	 writeln('n='); 
	 readln(n);
until((n in [3..100]) and ( n mod 3=0));
for i := 1 to n do
	  T[i]:= random(100);
for i := 1 to n do
	 writeln(T[i]  ,'|  ');
i:=1;
repeat
T[i]:=T[i]+T[i+1]+T[i+2];
i:=i+3;
until(i=n);
j:=n div 3;
for i:= j to n do
T[i]:=0;
for i:=1 to n do 
writeln(T[i],'  |  ');
end.