Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Tableau
program HelloWorld; var Notes : array [1..4] of integer; nbr , som , moy : integer; procedure lectureNotes(); begin for nbr := 1 to 4 do begin repeat write('introduis ta ',nbr,'eme note entre 0 et 20 : '); readln (Notes[nbr]); writeln(Notes[nbr]); writeln; until (Notes[nbr] <= 20) and (Notes[nbr]>= 0); end; end; procedure lectureNotes2(); begin for nbr := 1 to 4 do begin som := (som + Notes[nbr]) ; end; end; begin som :=0; lectureNotes; lectureNotes2; moy := som div 4; write(moy); end.
run
|
edit
|
history
|
help
0
GG!
by Xultax, 1 years ago
Please
log in
to post a comment.
1 25 5
nomer7
help me to fix this stupid thing, so tired about it
Shuffle number array
practica 3 ejercicio 7
1
числа с несовпадающими цифрами
practica 5 ejercicio 6
array
Task1-1
GG!
by Xultax, 1 years agoPlease log in to post a comment.