Exercise correction
bedia18
-
bedia18 -
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.
```
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
-
Hello,
You forgot to specify the programming language used. It's essential ;-)
For future messages, remember to use code tags. Here's a little tutorial https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Above the message editing area, there are icons for text enrichment. The one that looks like<>▼
allows you to apply the format corresponding to the nature of the code.
And when you run your code, does it work, does it give error messages, ...?
