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[i]:=-1/i
else a[i]:=1/i;
write('(',a[i]:6:4,')')
end;
writeln;
writeln;

writeln ('1-ый способ');
S:=a[1];
write('(',S,')');
for i:=2 to n do
begin
S:=S+a[i];
write(' + (',a[i],')');
end;
write(' = ',S);
writeln;
writeln;

writeln ('2-ой способ');
x:=0;
y:=0;
for i:=1 to n do
if a[i]>0 then
begin
x:=x+a[i];
write(' + ',a[i]);
end;
write(' = ',x,' – сумма всех положительных чисел');

writeln;

for i:=1 to n do
if a[i]<0 then
begin
y:=y+a[i];
write(' ',a[i]);
end;
write(' = ',y,' – сумма всех отрицательных чисел');

writeln;
writeln('(',x,')',' - ','(',y,')',' = ',x-y);
writeln;

writeln ('3-ий способ');
P:=a[n];
write('(',P,')');
for i:=n-1 downto 1 do
begin
P:=P+a[i];
write(' + (',a[i],')');
end;
write(' = ',P);
writeln;
writeln;

writeln ('4-ый способ');
r:=0;
q:=0;
for i:=n downto 1 do
if a[i]>0 then
begin
r:=r+a[i];
write(' + ',a[i]);
end;
write(' = ',r,' – сумма всех положительных чисел');

writeln;

for i:=n downto 1 do
if a[i]<0 then
begin
q:=q+a[i];
write(' ',a[i]);
end;
write(' = ',q,' – сумма всех отрицательных чисел');

writeln;
writeln('(',r,')',' - ','(',q,')',' = ',r-q);

end.