[PASCAL] Suma tuturor elementelor dintr-un sir

[Leventhe]

type sir=array[1..100] of word;

 

var x:sir;

i,n,s:integer;

 

begin

s:=0;

 

for i:=1 to n do begin

write('x[',i,']=');

readln(x)

end;

 

for i:=1 to n do

s:=s+x;

 

write(s);

end.

[Leventhe]

Mulţumim pentru informaţii! Topic Closed!

Edited December 14, 2013 by Blaze

[AIM Katzuno Valoare]

Mutat la sectiunea tutoriale.