На паскале. задан массив из n действительных чисел(n может быть задано не более 25). отрицательные числа в заданном массиве упорядочить по убыванию их значений. взаимное расположение отрицательных и положительных чисел сохранить. вывести на экран исходный и новый массивы.

236

466

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

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

МАВ03022004

Информатика

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

Const n=20; var a,b: array[1..n] of integer; i,j,k,m,c: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(51)-25; write(a[i]: 5); end; writeln; j: =0; for i: =1 to n do if a[i]< 0 then begin j: =j+1; b[j]: =a[i]; end; m: =j; for k : = 1 to m-1 do for i : = 1 to m-k do if (b[i]< b[i+1]) then begin c: =b[i]; b[i]: =b[i+1]; b[i+1]: =c; end; writeln(' массив: '); for i: =1 to m do write(b[i]: 5); writeln; j: =0; for i: =1 to n do if a[i]< 0 then begin j: =j+1; a[i]: =b[j]; end; writeln('полученный массив: '); for i: =1 to n do write(a[i]: 5); writeln; end. пример: исходный массив: -15 -8 -6 -13 15 24 5 -2 14 -1 19 -2 -7 -8 -23 20 -2 7 -2 -10 массив: -1 -2 -2 -2 -2 -6 -7 -8 -8 -10 -13 -15 -23 полученный массив: -1 -2 -2 -2 15 24 5 -2 14 -6 19 -7 -8 -8 -10 20 -13 7 -15 -23

dashasuslova007

Информатика

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

Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня. // pascalabc.net 3.0, сборка 1088 var x1,x2,y1,y2,r1,r2: real; begin write('введите координаты первой точки: '); read(x1,y1); write('введите координаты второй точки: '); read(x2,y2); r1: =sqr(x1)+sqr(y1); r2: =sqr(x2)+sqr(y2); if r1> r2 then writeln('ближе вторая точка') else if r1< r2 then writeln('ближе первая точка') else writeln('точки равноудалены') end. тестовое решение: введите координаты первой точки: 16.3 -11.7 введите координаты второй точки: 15.8 12 ближе вторая точка

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

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

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

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

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

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

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

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

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

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