Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
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
Please
log in
to post a comment.
task 3
B prethodnih B sledecih
2
Урок 3 не из учебника. U-контур и функция sign (x)
Ex5b20
String compare
Tri 1.0
Genetic Pascal
P170808A
123
Please log in to post a comment.