Типы данных и операции над ними.​

//Dev-C++ 5.11

#include <iostream>
#include <ctime>
#include <stdlib.h>
using namespace std;

void cher(int ar1[],int ar2[],int& ar3, int n);

int main(void)
 {int* ar1,*ar2,*arfin;
 int n,a;
 cin>>n;
 ar1=new int[n];
 ar2=new int[n];
 arfin=new int[n*2];
 cout<<"Random or reading? 1-rand, other-read";
 cin>>a;
 if (a==1)
  {srand(time(NULL));
  for(int i=0;i<n;i++)
   {ar1[i]=rand()%10;
   cout<<ar1[i]<<' ';}
   cout<<"\n";
  for(int i=0;i<n;i++)
   {ar2[i]=rand()%10;
   cout<<ar2[i]<<' ';}
   cout<<"\n";}
 else
 {for(int i=0;i<n;i++)
  cin>>ar1[i];
 for(int i=0;i<n;i++)
  cin>>ar2[i];}
 cher(ar1,ar2,*arfin,n*2);
 for(int i=0;i<n*2;i++)
  cout<<arfin[i]<<' ';
 delete []ar1;
 delete []ar2;
 delete []arfin;
 return 0;}

void cher(int ar1[],int ar2[],int& ar3, int n)
 {int* ar3f=&ar3;
 int i1,i2=0;
 for(int i=0;i<n;i++)
  if(i%2==0)
   {ar3f[i]=ar1[i1];
   i1++;}
  else
   {ar3f[i]=ar2[i2]; i2++;}}

Программа с массивом (хотя он тут и не нужен):
var a:array[1..60] of char;
st:string; i,p:integer;
begin
writeln('Введите массив символов:');
readln(st);
writeln('Вот массив:');
for i:=1 to length(st) do 
 begin
 a[i]:=st[i];
 write(a[i]);
 end;
writeln;
st:=' '+st+' ';
p:=pos(' mama ',st);
while p>0 do
 begin
 delete(st,p,6);
 insert(' ded ',st,p);
 p:=pos(' mama ',st);
 end;
writeln('Измененный массив:');
for i:=1 to length(st)-2 do 
 begin
 a[i]:=st[i+1];
 write(a[i]);
 end;
writeln;
end.

Пример:
Введите массив символов:
mama papa okno mama primer baba
Вот массив:
mama papa okno mama primer baba
Измененный массив:
ded papa okno ded primer baba