Demander si oui ou nn de relancer prog pascal

je ne compri pas ton quistion

tu fais une bouqle avec une "for" et une valeur de test pour la condition d'arrer

tu a comprie ?

readln(n); ___________n est le taille de tableau et la condition d'arrer
for i:=1 to n do___________le bougle 'for' s'arret si n=0 le bougle se fait avec automatiquement n:=n-1;
begin
write('saisie element');
readln(A[i]);
and;

program Moyenne;
uses
wincrt;
var
dc,ds,ch,m:real;

begin
n :=1;
for i:=0 to n do
begin
writeln('saisir votre note du devoir de controle');
read (dc) ;
writeln(' merci');
writeln('saisir votre note du devoir de synthèse');
readln(ds);
m:=(dc+2*ds)/3;
writeln('voila votre note');
write(m:5:2);
writeln('tu ve entre une autre note si oui taper:2 si non taper :1 ');
read (n) ;
end;
end.

non désolé Mr SEDI...machin pour demander la reexecution d'un programme il faut utilisé les label comme ça

program Moyenne;
label 10;
var
l:integer;
dc,ds,m:real;

begin

10:writeln('saisir votre note du devoir de controle');
read (dc) ;
writeln(' merci');
writeln('saisir votre note du devoir de synthèse');
readln(ds);
m:=(dc+2*ds)/3;
writeln('voila votre note');
write(m:5:2);
writeln('taper 1 pour reexecuter les programme ou 2 pour sortir');
readln(l);
if l=1 then goto 10 else writeln('fin du travail');
end.

voila je l'ai tester et il fonctionne pense au resolu

Sinon tu peux utiliser une écriture plus fonctionnelle de ton programme, c'est plus clair et tu peux mieux t'en servir

program Moyenne;

procedure Calcul;
var dc,ds,m:real;
begin
write('Note du devoir de controle : '); readln(dc);
write('Note du devoir de synthese : '); readln(ds);
m:=(dc+2*ds)/3; writeln('Moyenne : ',m:0:2);
end;

function Fin:boolean;
var ch:real;
begin
writeln;
write('Recommencer le calcul ? (oui=2 non=1) : '); readln(ch);
result:=(ch=2);
writeln;
end;

begin
repeat Calcul until (not Fin);
write('Fin du programme. Appuyer sur Entree pour terminer'); readln;
end.