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
Pascal First
Количество пар кр и не кр 11 с дельтой эффект и неэффект алгоритмы
Task 3
2sdfghkl
5
Promo1
contar_divisores_de_N
test29
1
temp