Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Llenar un arreglo (con for)
var edades : ARRAY [1..5] of integer; i, n, edad, sum: integer; promedio : real; BEGIN i := 1; sum:= 0; promedio:= 0; for n := 1 to 5 do begin read(edad); edades[n]:= edad; 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
11.7.2013 naloga2
Задача 2 урок не из учебника
aefrt
Why do not work?
For6
5
kepo
practica 6 ejercicio 4
TID_Calculator
Object Pascal