1) дан целочисленный массив размера n. назовем серией группу подряд идущих одинаковых элементов, а длиной серии — количество этих элементов (длина серии может быть равна 1) вывести массив, содержащий длины всех серий исходного массива. 2) проверить, образуют ли элементы целочисленного массива размера n 1)арифметическую,2) прогрессию. если да, то вывести 1)разность2) знаменатель прогрессии, если нет — вывести 0.

268

429

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

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

ayskamaska

Информатика

4,4(49 оценок)

если не ошебаюсь то так ) дан массив размера n. найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. найденные номера выводить в порядке их возрастания. var a,d: array[1..255]of integer; i,c,n: byte; begin write('n='); read(n); for i: =1 to n do begin write('a[',i,']='); read(a) end; writeln; c: =0; for i: =1 to n-1 do if a> a[i+1] then begin c: =c+1; d[c]: =i end; writeln('takux ejiemehtob: ',c); for i: =1 to c do write(d,' '); writeln end. 2) дан целочисленный массив a размера n,являющийся перестановкой. найти количество инверсий в данной перестановке,т.е. таких пар ai и aj элементов в которых большее число находится слева от меньшего: ai> aj при i< j> l) и целочисленный массив размера n. заменить каждую серию массива, длина которой меньше l, на один элемент с нулевым значением. что-то я не понял, что это за л? вот решил так: var a: array[1..256]of integer; i,j,n: byte; c: integer; begin write('n='); read(n); for i: =1 to n do begin write('a[',i,']='); read(a) end; writeln; c: =0; for i: =1 to n-1 do for j: =i+1 to n do if a> a[j] then inc(c); writeln('колличество инверсий - ',c); end.

DeteRno

Информатика

4,5(83 оценок)

Простые информационные это звук изображение текста а информационные объекты это база данных таблица гипертекст но вы данном случае э\то информационный объект

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

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

Задай свой вопрос

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

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

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

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

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

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

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