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
yghgh
Llenar un arreglo (con for)
1º Questão - VS - 1º Semestre 2017
проверка числа на отсутствие возрастающих и убывающих четвёрок
test20
Linija
test12
aefrt
practica 7 ejercicio 4
Однажды в сказке