program ouniss;
uses wincrt;
type
tab = array [1..100] of integer;
var
t: tab;
n,min,J:integer;
procedure saisie ( var n :integer);
begin
writeln('donner un entier pour  la long de tableau  ');
readln(n);
end;
procedure remplir ( var t:tab ; n :integer);
var
i:integer;
begin
writeln('donner un tableau T ');
for i := 1 to n do
readln(t[i]);
end;
function minimum(t:tab ; n :integer):integer;
var i :integer;
begin
min := t[1];
for i :=1 to n do
if min>t[i] then min:=t[i];
minimum:=min;
end;
procedure affiche ( t:tab ; n:integer );
begin
writeln('Le minimum est égal:  ',J);
end;
BEGIN
writeln('la role de cet programme cherche la minimum dans un tableau');
writeln('***********************************************************');
saisie(n);
remplir(t,n);
J:=minimum(t,n);
affiche(t,n);
END.

Déjà bonjour, et pourquoi ce script ?
 
explique la raison de ton message, merci !
 
Reilledroc

c'est un programme Pascal qui permet   chercher et afficher la minimum dans une tableau

 
On est bien content pour toi.  
 
=> fermeture du sujet.