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.
Partager