C/C++ - перевод с Pascal ABC на С++

[dhoine66]

помогите пожалуйста перевести с Pascal ABC на С++

С не знаю, а программу нужно на двух языках. заранее спасибо



uses crt;

const n=random(1000001);

type

Mass=array[1..n] of real;

Var

a: Mass;

var i, k: integer;

S, P, r, q, x ,y: real;



begin



for i:=1 to n do

begin

k:=i;

if i mod 2 =0 then a:=-1/i

else a:=1/i;

write('(',a:6:4,')')

end;

writeln;

writeln;



writeln ('1-ый способ');

S:=a[1];

write('(',S,')');

for i:=2 to n do

begin

S:=S+a;

write(' + (',a,')');

end;

write(' = ',S);

writeln;

writeln;



writeln ('2-ой способ');

x:=0;

y:=0;

for i:=1 to n do

if a>0 then

begin

x:=x+a;

write(' + ',a);

end;

write(' = ',x,' – сумма всех положительных чисел');



writeln;



for i:=1 to n do

if a0 then

begin

r:=r+a;

write(' + ',a[i]);

end;

write(' = ',r,' – сумма всех положительных чисел');



writeln;



for i:=n downto 1 do

if a[i]