Ответы на вопрос:
//pascalabc.net 3.0, сборка 1064 const nn=50; var a: array[1..nn] of integer; i,n,imin: integer; begin write('введите количество элементов в массиве: '); read(n); randomize; writeln('исходный массив'); imin: =1; for i: =1 to n do begin a[i]: =random(51)-25; write(a[i],' '); if a[i]< a[imin] then imin: =i; end; writeln; for i: =imin to n-1 do a[i]: =a[i+1]; writeln('массив-результат'); for i: =1 to n-1 do write(a[i],' '); writeln end. тестовое решение: введите количество элементов в массиве: 15 исходный массив 17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 -20 23 2 массив-результат 17 -3 22 18 -13 -5 5 -15 -18 23 17 -2 23 2 а это версия для тех, кто думает, что паскалю пора давно "на свалку": //pascalabc.net 3.0, сборка 1064 begin var n: =readinteger('введите количество элементов в массиве'); var a: =seqrandom(n,-25,25).toarray(); writeln('исходный массив: ',#13#10,a); writeln('результат: ',#13#10,a.where(x-> x< > a.min)); end. тестовое решение: введите количество элементов в массиве 15 исходный массив: [-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-25,-5,-15] результат: [-10,-15,8,-19,9,21,-22,-11,12,14,2,19,-5,-15] можно сравнить понятность кода и его размер как со "школьным" решением, так и с программой на java, в предыдущем ответе.
//javaimport java.util.arraylist; class main { public static void main(string[] args) { arraylist< integer> a = new arraylist(); /** * заполнение */ for (int i = 0; i < 50; i++) a.add(i, new java.util.(100)); /** * пузырь */ for (int i = 0; i < 50; i++) for (int j = 0; j < 50-i-1; j++) if (a.get(j) > a.get(j+1)){ int b = a.get(j); a.set(j, j+1); a.set(j+1, b); } for (int i = 0; i < 50; i++) system.out.print(a.get(i) + " "); system.out.println(""); /** * удаляем */ a.remove(0); for (int i = 0; i < 50-1; i++) system.out.print(a.get(i) + " "); }} проверка: 1 2 3 4 5 6 7 8 9 10 12 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 96 982 3 4 5 6 7 8 9 10 12 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 96 98так как использовался, само расширяющийся массив, то при удалении, ничего сдвигать не нужно
Uses crt; function f(a,b: real): real; begin f: =sqrt(a*a+b*b) end; var ab,ac,dc,bd,g,p: real; begin clrscr; writeln('введите длины строн'); write('ab='); readln(ab); write('ac='); readln(ac); write('dc='); readln(dc); g: =f(ab,ac); bd: =f(g,dc); p: =ab+ac+dc+bd; write('периметр=',p: 0: 2); readln end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Monstrozacrs25.06.2022 04:00
-
123456789082423.03.2021 18:00
-
shuius07.11.2021 13:11
-
Tishukvasiliy29.06.2020 04:24
-
gayazhan26.07.2022 18:41
-
german15080123.01.2021 01:12
-
srySyutoduofyi18.12.2021 10:24
-
АминаАлханова13.05.2023 16:15
-
Исма12430.08.2021 14:29
-
nigar2630.04.2020 10:11
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.