J'ai pas trouvé l'erreur (pascal)

Fermé
wajdi83 Messages postés 77 Date d'inscription lundi 26 janvier 2009 Statut Membre Dernière intervention 13 juillet 2009 - 5 avril 2009 à 13:32
Bonjour,
je voulais remplir un tableau de 5 à 100 éléments et afficher le maximum de l'élément du tableau
voila j'ai essayé mais ça n'a pas marché (c'est un programme avec pascal)
program somme_maximum;
uses wincrt;
type tab=array [5..100]of integer;
var S,M,n:integer;
t:tab;
procedure saisie_t(VAR t:tab;n:integer);
var i:integer;
begin
for i:=1to n do
write('donner un élément');
readln( t[i]);
end;
function saisie_n:integer;
var x:integer;
begin
repeat
write('donner un entier');
readln (x);
until x in [5..100];
saisie_n:=x;
end;
procedure calcul(var S,M:integer);
var i:integer;
begin
S:=0;M:=t[i];

for i:=1to n do;
S:=s+t[i];

if t[i]>M
then M:=t[i];

end;
end.
A voir également: