Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
arreglo suma1
//fpc 3.0.0 program suma_arr; const N = 4; var i, sum: integer; num : array[1..N] of integer; begin sum := 0; for i:=1 to N do begin writeln( 'Valor ', i, ': ' ); readln( num[i] ); end; for i:=1 to N do sum := sum + num [i]; writeln('suma es ', sum); end.
run
|
edit
|
history
|
help
0
ProcedureTest1
practica 7 ejercicio 2
the longest sub-array
practica 5 ejercicio 5
3
ALEX LIMA NEPOMUCENO 600624764
09 Ariketa FOR
Huong11a2@
Vector Distancia constante
4º Questão VS - 1º Sem. 2017