Помогите пожалуйста!!!
Даны действительные числа a1,....,an (n<=150) удалить из
последовательности те члены , поpядковые номеpа котоpых
кpатны 4 , сохpанив пpежним поpядок оставленных членов.(За-
мечание:удалить из существующего массива, а не создавать но-
вый !).
Даны действительные числа a1,....,an (n<=150) удалить из
последовательности те члены , поpядковые номеpа котоpых
кpатны 4 , сохpанив пpежним поpядок оставленных членов.(За-
мечание:удалить из существующего массива, а не создавать но-
вый !).
Answers & Comments
Verified answer
Vara: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 <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;
}