program mn; uses crt; var a:array[1..100]of integer; n,i,s:integer; BEGIN ClrScr; Write('N:'); readln(n); randomize; for i:=1 to n do begin a[i]:=random(50); if i mod 2<>0 then s:=s+a[i]; Write(a[i],' '); end; writeln; Writeln(s); readln; END.