Tfe

Old stuff/ecole_etude_fac_de_pau/licence_2/pascal/02.pas

program max_min;

var i,max,min:integer;
type vecteur=array[0..3] of integer;
var numeros:vecteur;

begin
writeln("Entrer 4 numeros");
for i:=0 to 3 do read(numeros[i]);
max:=numeros[0];
min:=max;

for i:=1 to 3 do
  if numeros[i]>max then max:=numeros[i]
  else if numeros[i]<min then min:=numeros[i];
  


writeln("max=",max," et min=",min);    
    
end.