profile
Размещено 5 лет назад по предмету Информатика от Дпашник

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

  1. Ответ на вопрос
    Ответ на вопрос дан petyaGavrikov
    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
    1. Ответ на вопрос
      Ответ на вопрос дан Дпашник
      Это паскаль! , я просил си
  2. Ответ на вопрос
    Ответ на вопрос дан srzontmp
    #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;
    }

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.