Перевод из Pascal в C++

Дана задача: Даны натуральное число n, действительные чи­сла а1...,аn. В последовательности а1...,аn все не­отрицательные члены, не принадлежащие отрезку [1, 2], заменить на нулями. Есть код в паскале, который решает данную задачу, можно-ли перевести его в c++

var
    ar: Array[Byte] Of Real;
    n, i: Word;
begin
    repeat
        Write('Input n=');
        ReadLn(n);
    until (n > 0);
    Randomize();
    Write('Original array:');
    for i := 0 to n - 1 do
    begin
        ar[i] := Random * 198 - 99;
        Write(ar[i]:7:2);
        if ((ar[i] >= 0) And ((ar[i] < 1) Or (ar[i] > 2)))
        then
            ar[i] := 0;
    end;
    WriteLn; Write('Modified array:');
    for i := 0 to n - 1 do
        Write(ar[i]:7:2);
end.