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
practica 9 ejercicio 6
BubbleSor (slimmer)
test28
6
Calculatrice 1.0
Calculatrice (case of)
solar_system_n_planets_any_time
Cek dua pangkat
Урок 6. Задача 1 (1525). Номер самого большого числа
BubbleSort (standaard)