Bonjour,
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
program ex1;
uses wincrt;
var
p,n,i,j,max:integer;
a,b:array [1..20] of integer;
begin
  repeat
    read(n);
  until (n>=1) and (n<=20);
 
  for i := 1 to n do
    read(a[i]);
 
  for i := 1 to n do
    begin
      max:=a[1];
      p:=1;
      for i:=2 to n do
        begin
          if a[i]> max then
            max:=a[i];
          p:=i;
        end;
      a[p]:=0;
      b[i]:=max;
    end;
  for i:=1 to n do
    writeln(b[i]);
end.
Aidez-moi, j'ai une erreur je ne sais pas où.
Merci d'avance.