Programme tableau

program redondance;
var t:array[1..100] of real;
   n, cnt, i , j:integer;
   val      :real;
begin

   writeln('donnez la taille du tableau');
   readln(n);

   for i:=1 to n do
      t[i] := 0 ;

   cnt := 1;

   for i:=1 to n do
   begin
      write('donnez la valeur (' , i:2 , '/', n:2, ') suivante:');
      readln(val);

      j := 1;

      while ( ( j < cnt ) and ( t[j] <> val ) ) do
      begin
	 j := j + 1;
      end;
      if (( j = cnt ) or ( cnt =1 )) then
      begin
	 t[cnt] := val;
	 cnt := cnt + 1 ;
      end;
   end;

   cnt := cnt - 1;

   for i:= 1 to cnt  do
      writeln(t[i]);

end.

program Redondance;

const Max = 100;
type Tableau = array[1 .. Max] of Real;

procedure Curseur(var N : Integer);
begin
Write('Donnez le nombre d''elements a saisir : N <= ', Max, ' : ');
Readln(N);
end;

procedure Alimentation(var T : Tableau; var N : Integer);
var I, J, sentinelle : Integer;
EnCours : Real;
Negatif : Boolean;

begin

Write('Donnez le premier element du Tableau : ');
Readln(T[1]);

Sentinelle := 1;
Negatif := True;
I := 2;
while I <= N do begin
Write('Donnez l''lement ', I, ' : ');
ReadLn(EnCours);

for J := 1 to Sentinelle do begin
if Encours = T[J] then begin
Negatif := False;
Break;
end;
end;

if Negatif then begin
Sentinelle := sentinelle + 1;
T[Sentinelle] := EnCours;
end;

Negatif := True;
I := I + 1;
end;
N := Sentinelle;
end;

var T : Tableau;
N, I : integer;

begin

Curseur(N);
Writeln;
Writeln('Alimenter les ', N, ' elements du tableau');
Writeln;
Writeln('Exclusion des elements redondants');
Writeln('et affichage des elements distincts');
Writeln;
Alimentation(T, N);
Writeln;

for I := 1 to N do
Write(T[I]:6:2);

ReadLn;

end.