Maximum

Version inverse du minimum

---

program maximum;

uses AlgoVecteurs;
uses AlgoTypes;

var taille,i,j,max : integer;
    V,pos : Vecteur;

begin
    write('Entrez la taille du tableau : ');
    readln(taille);
    v:=init_vect(taille);
    pos:=init_vect(taille);

    i:=0;max:=V[0];j:=0;
    while (j<taille) do begin pos[j]:=0; j:=j+1; end;
    j:=0;
    while (i<taille) do
    begin
        if (V[i] > max) then
        begin
            max:=V[i]
            j:=0;
            while (j<=taille) do
            begin
                pos[j]:=0;
                j:=j+1;
            end;
            j:=0;
            pos[j]:=i;
        end;
        else
        begin
            if V[i]==max then
            begin pos[j]:=i;j:=j+1; end;
        end;
        i:=i+1;
    end;

    j:=1;
    writeln('le maximum est ',max);
    writeln('Et sa ou ses positions dans le tableau : ');
    writeln(pos[0]);
    while(j<taille)do
    begin
        if(pos[j]<>0)then
        begin
            writeln(pos[j]);
        end;
    end;
end.

---

Codeurs : Moi
Date : 30/10/2007
Language : Turbo-Pascal
Ligne : 51