Даны действительные числа (n< =150) удалить из последовательности те члены , поpядковые номеpа котоpых кpатны 4 , сохpанив пpежним поpядок оставленных членов.(за- мечание: удалить из существующего массива, а не создавать но- вый

189

374

Посмотреть ответы 3

Ответы на вопрос:

помощьнужнв

Информатика

4,7(91 оценок)

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

Danielufa

Информатика

4,8(24 оценок)

#include < iostream> #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; }