programme avec pascal Fermé

Question

Bonjour,
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.

anessaad · Answer

program maximum;
uses wincrt;
type
  tab=array [1..100] of integer;
var
Begin
  write('Donnez la taille du tableau : ');
  readln(n);

  for i:=1 to n do
    read(t[i]);

  x:=t[1];
  for 2:=1 to n do
    if t[i] > t[i+1]
      then begin
                 x:=t[i];
                 t[i]:=t[i+1];
                 t[i+1]:=x;
              end;
  for i:=1 to n do
    write(t[i]);
end.

anessaad · Answer

pardon aprés var écrit
var
x:integer;
t:tab;

wajdi83 · Answer

merci mais ça marche pas aussi

Programme avec pascal

3 réponses

Discussions similaires