View original (French)

Exercise correction

bedia18 -  
```delphi
program tableau ;
uses crt;
type T_tab = array [ 1..20 ] of integer ;
var tnbre : T_tab; i, grd : integer ;
begin
for i := 1 to 20 do
begin
repeat
writeln ( 'entrez votre nombre :' );
readln ( tnbre [i] );
until tnbre [i] > 0;
end;
grd := tnbre [1];
for i := 2 to 20 do
begin
if ( grd < tnbre [i] ) then
begin
grd := tnbre [i];
end;
end;
writeln('le plus grand élément est :', grd);
readkey;
end.
```

5 answers

  1. bedia18
    Thank you, sir, for your response. I am moved.
    I take the j as an integer.
    And at line 11, I integrate the i because according to the exercise, it is a table, so the "i" represents the rows.
    If I make any mistakes, please help me to resolve them.