19+ 1. из массива размером n удалите все элементы, которые встречаются более одного раза. 2. пользователь вводит массив, предварительно указав его размер. поменяйте местами максимальный и минимальный элементы массива. 3. транспортируйте матрицу размером n×m (поменяйте местами строки и столбцы).

172

250

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

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

Besta555

Информатика

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

Код pascal: первая программа: const n = 13; var a,b: array[1..n] of integer; i,j,m: integer; k: byte; begin randomize; write('исходный массив: '); for i: = 1 to n do begin a[i]: =random(n); write(' ',a[i]) end; writeln; write('уникальные элементы: '); m: =0; for i: = 1 to n do begin k: =1; for j: = 1 to n do if i< > j then if a[i]=a[j] then k: =0; if k=1 then begin m: =m+1; b[m]: =a[i]; end end; for m: =1 to m do begin a[m]: =b[m]; write(' ',a[m]) end; end. пример работы программы: исходный массив: 3 7 11 11 11 0 9 3 9 9 10 1 4 уникальные элементы: 7 0 10 1 4 вторая программа: var a: array[1..10000] of integer; n,min,max,b: integer; beginwrite('введите размерность массива: '); readln(n); write('введите массив a(',n,'): '); for n: = 1 to n do read(a[n]); min: =1; max: =1; for n: = 2 to n do begin if a[n]< min then min: =n; if a[n]> max then max: =n; end; writeln('min(a) = a[',min,'] = ',a[min]); writeln('max(a) = a[',max,'] = ',a[max]); b: =a[max]; a[max]: =a[min]; a[min]: =b; write('a(',n,'): '); for n: = 1 to n do write(' ',a[n])end.пример работы программы: введите размерность массива: 7введите массив a(7): 1 3 4 6 7 5 2 min(a) = a[1] = 1max(a) = a[5] = 7a(7): 7 3 4 6 1 5 2 третья программа: const n = 3; m = 4; var a: array[1..n,1..m] of integer; b: array[1..m,1..n] of integer; i,j: integer; beginrandomize; writeln('исходная матрица: '); for i: = 1 to n do begin for j: = 1 to m do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' ') end; writeln; end; writeln; writeln('транспонированная матрица: '); for i: = 1 to m do begin for j: = 1 to n do begin b[i,j]: =a[j,i]; write(b[i,j]: 3,' ') end; writeln end; end. пример работы программы: исходная матрица: 10 3 10 1 -4 9 -9 2 -1 4 2 1 транспонированная матрица: 10 -4 -1 3 9 4 10 -9 2 1 2 1

viamell

Информатика

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

ответ:1Прикладная наука ,занимающая разработкой автоматизированных технических систем.Робототехника опирается на такие дисциплины,как электроника,механика,информатика,радиотехника и электроника.

Это все что было в моем СОЧе

Объяснение:

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

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

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

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

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

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

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

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

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

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