Сформировать вещественный массив A[15]

[Ghyt]

Сформировать вещественный массив A[15],элементами которого являются случайные числа из диапазона [-2;3].Переслать из него в массив A2 все элементы , значения которых больше -1.8 и меньше 2.7
Помогите написать программу с комментариями если можно.

[newerow1989]

const m=15;
var a,b:array[0..m-1] of real;
    i:integer;
begin
   Randomize;//генерация случайных чисел
   For i:=0 to m-1 do
   begin
      a[i]:=-2+5*Random;//Random выдает результаты от 0 до 1, поэтому нужна такая формула: диапазон 0..5 смещаем на 2 единизы вниз, получаем -2..3
      b[i]:=0;//обнуляем массив b
      Write(a[i]:5:5,'  ');//распечатываем массив a
   end;
   Writeln('');
   Writeln('b:');//печать текста на экран
   For i:=0 to m-1 do
      If (-1.8<a[i]) and (a[i]<2.7) then//условие -1,8<a[i]<2,7
      begin
         b[i]:=a[i];//"Переслать из него в массив A2" по условию задачи
         Write(b[i]:5:5,'  ');//печать массива b
      end;
   Readln;
end.

Сойдет?

Кстати, массив b можно убрать в разделе переменных var, и в коде убрать те строчки, в которых упоминается b: b[i]:=0; b[i]:=a[i]; Write(b[i]:5:5,' ') заменить на Write(a[i]:5:5,' '). Результат вывода на экран останется таким же

[Ghyt]

нужно на C++

[newerow1989]

Я знаю только Паскаль. Я не знаю C++