Перевод с Pascal на С++

[Norbert]

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var a:array of integer;
    n,i,k:integer;
begin
 randomize;
 write('n=');
 readln(n);
 setlength(a,n);
 for i:=0 to n-1 do
  begin
   a[i]:=1+random(50);
   write(a[i]:4);
  end;
 writeln;
 writeln('Nomera nechetnych na cetnych mestah');
 k:=0;
 for i:=0 to n-1 do
 //индексы с 0, поэтому берем четные индексы
 if(i mod 2<>0)and(a[i] mod 2<>0)then
 begin
  write(i+1:4);//выводим индекс+1
  k:=1;
 end;
if k=0 then write('Takih elementov net');
readln
end.

[digitalis]

200г коньяку и бутерброд. Такса умеренная.