2 задачи, которые я написал на паскале, прошу помочь перевести в с++!

01.01.2001

2 задачи, которые я написал на паскале, прошу помочь перевести в с++!
Найти количество положительных (отрицательных) чисел среди четырех целых чисел A, B, C и D
Код Pascal

1
2
3
4
5
6
7
8
9
10
11
12

var a,b,c,d,e:integer;
begin
writeln('Введите числа: ');
readln(a,b,c,d);
if a>0 then inc(e);
if b>0 then inc(e);
if c>0 then inc(e);
if d>0 then inc(e);
writeln('Количество положительных: ',e);
readln;
end.

Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять)
Код Pascal

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Program kvadr;
var
mas: array[1..3] of real;
a: integer;

begin
writeln('Введите 3 числа');
for a:=1 to 3 do readln(mas[a]);
for a:=1 to 3 do begin
if mas[a]>0 then mas[a]:=sqr(mas[a])*mas[a];
if mas[a]<0 then mas[a]:=sqr(mas[a]);
end;
for a:=1 to 3 do writeln(a,'-ое число: ',mas[a]);
end.

Прошу помогите перевести это в с++! Я только начал учиться этому языку программирования, и я плохо знаю его синтаксис!

Вас заинтересует