Bonjour,
j'ai besoin d'aide sur cet exo, j'ai essayé mais ça ne marche pas !! Mon code est à la fin : quelle est l'erreur ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Ecrire un algorithme qui lit une suite d’entiers terminée par 0 et qui affiche la longueur de la plus longue série d’entiers consécutifs égaux qu’elle contenait.
 
Exemples :
* Pour la suite (1, 2, 2, 4, 4 ,4 ,9 ,9 ,4 ,11 ,11 ,11 ,0): la longueur maximale est 3.
* Pour la suite (5, 5, 4, 9, 91, 4, 10, 0): la longueur maximale est 2.
* Pour la suite (6, 2, 1, 4, 1, 4,0): la longueur maximale est 1
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
program ex;
uses wincrt;
var i,j,val,last_val:integer;
 
begin
writeln('Entrer les elements de la serie:');
readln(val);
if val<>0 then begin j:=1; last_val:=val; end;
repeat
 if val=last_val then i:=i+1
 else
  begin
  last_val:=val;
   if j<i then j:=i;
  i:=0;
  end;
 if j<i then j:=i;
 readln(val);
until val=0;
 
writeln('la longugeur maximale est ',j);
readln;
end.