Составьте программу, которая заполняет массив a[1..15] случайными целыми числами в диапазоне от 1 до 20 , находит разность между максимальным и минимальным элементами массива и выводит её на экран , нашла один ответ, но ничего не поняла

248

482

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

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

alinaburlaka

Информатика

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

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(15,1,20); a.println; writeln(a.max-a.min); end. пример 12 16 10 3 4 9 2 11 19 20 13 3 20 19 9 18

димоооооооооооооон1

Информатика

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

1. const n=20; var a: array[1..n] of integer; max,imax,i,j,t: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(51)-25; write(a[i],' ') end; writeln; max: =a[1]; imax: =1; for i: =2 to n do if a[i]> max then begin max: =a[i]; imax: =i; end; writeln('max = ',max); for i: =1 to imax-1 do for j: =1 to imax-i do if a[j]> a[j+1] then begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end; writeln('отсортированный массив: '); for i: =1 to n do write(a[i],' '); writeln; end. пример: исходный массив: -5 -17 -19 4 -10 16 21 -23 22 24 -5 19 11 -24 6 -25 13 3 9 0 max = 24 отсортированный массив: -23 -19 -17 -10 -5 4 16 21 22 24 -5 19 11 -24 6 -25 13 3 9 0 2. const n=20; var a: array[1..n] of integer; min,imin,i,j,t: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(51)-25; write(a[i],' '); end; writeln; min: =a[1]; imin: =1; for i: =2 to n do if a[i]< min then begin min: =a[i]; imin: =i; end; writeln('min = ',min); for i: =1 to n-imin-1 do for j: =imin to n-i do if a[j]> a[j+1] then begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end; writeln('отсортированный массив: '); for i: =1 to n do write(a[i],' '); writeln; end. пример: исходный массив: 3 -24 -16 -9 -25 3 -25 17 -22 -3 8 2 -7 -8 -8 -24 -23 12 24 -24 min = -25 отсортированный массив: 3 -24 -16 -9 -25 -25 -24 -24 -23 -22 -8 -8 -7 -3 2 3 8 12 17 24 3. const n=20; var a: array[1..n] of integer; max,imax,min,imin,i,j,t: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(51)-25; write(a[i],' ') end; writeln; max: =a[1]; imax: =1; min: =a[1]; imin: =1; for i: =2 to n do begin if a[i]> max then begin max: =a[i]; imax: =i; end; if a[i]< min then begin min: =a[i]; imin: =i; end; end; writeln('max = ',max,' min = ',min); if imax> imin then begin for i: =1 to imax-imin-1 do for j: =imin to imax-i do if a[j]> a[j+1] then begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end end else begin for i: =1 to imin-imax-1 do for j: =imax to imin-i do if a[j]< a[j+1] then begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end; end; writeln('отсортированный массив: '); for i: =1 to n do write(a[i],' '); writeln; end. пример: исходный массив: -12 13 1 -17 -13 -10 23 5 8 -11 -9 -2 17 19 10 -5 14 10 -20 -9 max = 23 min = -20 отсортированный массив: -12 13 1 -17 -13 -10 23 19 17 14 10 10 8 5 -2 -5 -9 -11 -20 -9

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

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

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

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

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

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

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

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

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

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