Есть ответ 👍

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

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

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

antoxor
4,4(3 оценок)

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 < 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; }

1. var    a, s, cifra: integer; begin   s: = 0;   writeln('введите натуральное число');   readln(a);   while a > 0 do   begin     cifra: = a mod 10;   //определяем очередную цифру числа     s: = s + cifra * cifra * cifra;   //прибавляем к значению s цифру в кубе     a: = a div 10;   //целочисленное деление числа на 10 (отсекаем текущую цифру)   end;   writeln('сумма кубов цифр числа:   ', s); end. 2. var   a: integer; begin   writeln('введите натуральное число');   readln(a);   while a > 9 do   {определяем первую цифру числа путем отрезания цифр числа, пока число не станет однозначным. полученное число и будет первой цифрой}     a: = a div 10;   writeln('первая цифра числа:   ', a); end.      

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS