Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Llena un arreglo (con while)
var edades : ARRAY [1..5] of integer; i, n, edad, sum: integer; promedio : real; BEGIN i := 1; n := 1; sum:= 0; promedio:= 0; while (n <= 5) do begin read(edad); edades[n]:= edad; n := n + 1; end; while (i <= 5) do begin writeln('Edad ', i, ': ', edades[i]); sum:= sum + edades[i]; i:= i + 1; end; promedio:= sum/i; writeln(sum); writeln('El promedio de las edades es : ',promedio:0:1); end.
run
|
edit
|
history
|
help
0
Tri 1.0
Random_1
test27
test24
TAIRINE GOMES NEPOUMUCENO 600624521
BubbleSort (standaard)
lecturas
Tugas1
Naloga 8: 10.9.2008
zadanye 3 в