Решить массив в паскале,! дано: массивы а1(n1,m1),a2(n2,m2),a3(n3,m3). сформировать одномерные массивы в1,в2,в3,каждый из которых состоит из элементов,лежащих в интервале [1,3] массивов а1,а2,а3 соответственно. формирование одномерного массива,состоящего из элементов исходного массива, лежащих в интервале[1,3], осуществить в подпрограмме.

284

309

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

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

ibragimabdulaev

Информатика

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

Type arr = array[,] of integer; arrb = array of integer; var a1, a2, a3: arr; b1, b2, b3: arrb; n,m: integer; procedure zapoln(var a: arr; k: integer); var i, j, n, m: integer; begin writeln('массив а',k); n: = length(a,0); m: = length(a,1); for i : = 0 to n-1 do begin for j : = 0 to m-1 do begin a[i,j]: =random(10); write(a[i,j]: 2) end; writeln end end; procedure formb(a: arr; var b: arrb; n,m,r: integer); var i,j,k: integer; begin writeln('массив в',r); for i: =0 to n-1 do for j: =0 to m-1 do if (1< =a[i,j]) and (a[i,j]< =3) then begin b[k]: =a[i,j]; write(b[k]: 3); k: =k+1 end; writeln end; function razm(a: arr; n,m: integer): integer; var i,j: integer; begin for i: =0 to n-1 do for j: =0 to m-1 do if (1< =a[i,j]) and (a[i,j]< =3) then result: =result+1 end; begin write('введите n1 и m1: '); readln(n,m); setlength(a1, n, m); zapoln(a1,1); setlength(b1, razm(a1,n,m)); formb(a1,b1,n,m,1); write('введите n2 и m2: '); readln(n,m); setlength(a2, n, m); zapoln(a2,2); setlength(b2, razm(a2,n,m)); formb(a2,b2,n,m,2); write('введите n3 и m3: '); readln(n,m); setlength(a3, n, m); zapoln(a3,3); setlength(b3, razm(a3,n,m)); formb(a3,b3,n,m,3); end.

alikhanchik

Информатика

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

Program helloworld; var s: double; begin writeln('введите массу тела: '); readln(s); writeln('масса кислорода и атомов равна: '); s: =s*0.68; writeln(s: 15: 2); end.

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

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

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

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

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

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

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

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

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

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