└── Sum of element values


/Sum of element values:
--------------------------------------------------------------------------------
 1 | program  sum ;
 2 | 
 3 | var   s, i: integer; 
 4 |       a: array[1..10] of integer;
 5 | 
 6 | begin 
 7 |   randomize;
 8 | 
 9 |   for i:=1 to 10 do
10 |     a[i]:=random(100);
11 | 
12 |   for i:=1 to 10 do
13 |     write (a[i],` `);
14 | 
15 |   s:=0;
16 |   for i:=1 to 10 do
17 |     if (a[i]>10) and (a[i]<30) then
18 |       s:=s+a[i];
19 | 
20 |   write('s=', s)
21 | 
22 | end.
23 | 


--------------------------------------------------------------------------------