Run Code
|
API
|
Code Wall
|
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
Looping (odd no.)
practica 11 ejercicio 7 BETA
11.7.2013 naloga2
zadanye 4
test30
y
Lab3Factorial
real vs integer
342
asdfa