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

147

431

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

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

mafobe66

Информатика

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

//pascal abc.net 3.1 сборка 1219 const nc=10000; type ty=array[1..nc] of real; function minind(ar: ty; n: integer): integer; var i,mini: integer; min: real; begin min: =11; for i: =1 to n do if ar[i]< min then begin min: =ar[i]; mini: =i; end; minind: =mini; end; function sum1to2(ar: ty; n: integer): real; var i,t1,t2: integer; r: real; begin for i: =1 to n do if ar[i]< 0 then begin t1: =i; break; end; for i: =t1+1 to n do if ar[i]< 0 then begin t2: =i; break; end; for i: =t1+1 to t2-1 do r: =r+ar[i]; sum1to2: =r; end; procedure stransort(var ar: ty; n: integer); var i,j,nd: integer; begin nd: =0; for i: =1 to n do if abs(ar[i])< =1 then begin inc(nd); swap(ar[i],ar[nd]); end; end; var ar: ty; i,n: integer; begin randomize; readln(n); writeln('array: '); for i: =1 to n do begin ar[i]: =random(-3,3); write(ar[i]: 4); end; writeln; writeln('index of minimum: ',minind(ar,n)); writeln('sum=',sum1to2(ar,n)); stransort(ar,n); writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end. пример ввода: 5 пример вывода: array: 3 2 1 2 1 index of minimum: 3 sum=0 final array: 1 1 3 2 2

Irina12369

Информатика

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

Можно просто вычислить 2^n-1 или (если не использовать функцию возведения в степень) сделать так: var n,i: integer; k: real; begin readln(n); k: =1; for i: =1 to n do k: =k*2; writeln(k-1); end. пример: 3 7

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

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

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

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

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

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

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

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

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

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