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

295

331

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

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

Намиг123

Информатика

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

Вторая , паскаль авс program robiertmusin; uses crt; const n = 15; type myarray = array [1..n,1..n] of integer; procedure arrayoutput(a: myarray); var i,j: integer; begin for i : = 1 to n do begin for j: = 1 to n do write(a[i,j]: 4, ' '); writeln; end; writeln; end; procedure rowsort(var a: myarray; nom: integer); var i, j, temp: integer; begin for i : = 1 to n-1 do for j : = i+1 to n do if a[nom,i]> a[nom,j] then begin temp: =a[nom,i]; a[nom,i]: =a[nom,j]; a[nom,j]: =temp; end; writeln(nom,'-я строка '); end; var mass: myarray; i,j: integer; begin writeln('в матрице целых чисел а (n*n) программа упорядочивает те строки,'); writeln('в которых диагональные элементы не содержат семерок'); {создаём начальный массив и выводим его} randomize; for i : = 1 to n do for j: = 1 to n do mass[i,j]: =random(20); arrayoutput(mass); {просматриваем строки} for i : = 1 to n do begin if (mass[i,i]< > 7) and (mass[n-i+1,n-i+1]< > 7) then rowsort(mass, i); end; {выводим итоговый массив} writeln(' массив: '); arrayoutput(mass); end.

очароваш

Информатика

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

Первая . function has7octal(n: integer): boolean; var p, q, r: integer; begin result : = false; if n > 0 then begin p : = abs(n); repeat q : = p div 8; r : = p mod 8; if r = 7 then begin result : = true; p : = 0 end else p : = q until p = 0; end; end; const m = 10; n = 7; var a: array[1..m] of integer; b: array[1..n] of integer; c: array[1..m + n] of integer; i, k: integer; begin writeln('введите элементы масcива а(', m, ')'); for i : = 1 to m do read(a[i]); writeln('введите элементы масcива b(', n, ')'); for i : = 1 to n do read(b[i]); k : = 0; for i : = 1 to m do if not has7octal(a[i]) then begin k : = k + 1; c[k] : = a[i] end; for i : = 1 to n do if not has7octal(b[i]) then begin k : = k + 1; c[k] : = b[i] end; writeln('результирующий массив'); for i : = 1 to k do write(c[i]: 7); writeln end. тестовый прогон: введите элементы масcива а(10) 3453 -2341 2424 15353 0 5344 93 7777 1274 -343 введите элементы масcива b(7) 8644 8090 -12321 23432 5 1234 35 результирующий массив -2341 0 5344 93 -343 -12321 23432 5 1234 35

ElenaFevralV

Информатика

4,8(65 оценок)

5^4=3125. во всех таких нужно цвета возводить в в сетпень кол-ва ракет/лампочек и тд

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

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

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

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

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

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

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

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

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

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