Var 
a:array of real;
n,i,j:integer;
begin
Randomize;
write('n = ');
readln(n);
writeln('Исходный массив:');
SetLength(a,n);
for i:=0 to n-1 do
  begin
   a[i]:=10*random;
   write(a[i]:6:2);
  end;
writeln;
for j:=n div 4 downto 1 do
 begin
 for i:=4*j to Length(a)-1 do a[i-1]:=a[i];
 SetLength(a,Length(a)-1);
 end;
for i:=0 to Length(a)-1 do write(a[i]:6:2);
writeln;
end.

Пример:
n = 15
Исходный массив:
  8.17  9.96  5.06  9.34  2.91  7.37  3.64  7.22  2.83  3.04  2.02  9.09  0.32  5.10  9.35
  8.17  9.96  5.06  2.91  7.37  3.64  2.83  3.04  2.02  0.32  5.10  9.35

#include
#include
using namespace std;

int main() {
   int n,x;
   cout<>n;
   float a[n];
   srand(time(NULL));
   for (int i=0; i      a[i]=(rand()%100);
      a[i]/=10;
      cout<   }
   cout<   int i=3;
   while (i      for (int j=i; j      n--; 
      i+=3;
   }     
   for (int i=0; i   cout<   system("pause");
   return 0;
}