Salut , chui débutant .. sans se moquer lol ...
Voila mon devoir , j'espere avoir des réponses dans peu de temps car c demain a 10h le devoir .. c un ptit test pour réviser

Soit l'algorithme suivant
...

..

.

1-Traduire cet algorithme en Turbo Pascal
2-Donner le role de cet algorithme
3-changer la boucle intérieure de l'instruction 5 par la boucle répéter
4-Changer la boucle pour de l'instruction 2 par la boucle repeter

voila mon travail

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program devoir;
uses wincrt;
var  n,aux,i,j:integer;
     t:array[0..100] of real;
begin
repeat
writeln('donner n');
readln(n);
until n>3;
for i := 1 to n do
writeln('donner t[',i,']');
readln(t[i]);
writeln('le tableau initial est :');
for i := 1 to n do
                writeln('t[',i,']=',t[i]);
for i := 1 to n-1 do
  for j := i+1 to n do
    if t[i]>t[j] then
    aux:=t[i]; (lerreur)
  t[i]:=t[j];
  t[j]:=aux;
  writeln('le tableau final est :');
  for i := 1 to n repeat
  writeln('t[',i,']=',t[i]);
  end.
1-c koi cette erreur
2-si je change les boucles (question 3&4) y'aura quoi comme changement
merci a vous d'avance