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.
#include <iomanip>
using namespace std;
int main() {
int n,x;
cout<<"n = "; cin>>n;
float a[n];
srand(time(NULL));
for (int i=0; i<n; i++) {
a[i]=(rand()%100);
a[i]/=10;
cout<<a[i]<<" ";
}
cout<<endl;
int i=3;
while (i<n) {
for (int j=i; j<n-1; j++) a[j]=a[j+1];
n--;
i+=3;
}
for (int i=0; i<n; i++) cout<<a[i]<<" ";
cout<<endl;
system("pause");
return 0;
}