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.