Var m,n: byte; a: array[1..100,1..100] of integer; procedure form; var i,j: byte; begin randomize; for i: =1 to n do for j: =1 to m do a[i,j]: =random(280)-120; end; procedure viv; var i,j: byte; begin for i: =1 to n do begin writeln; for j: =1 to m do write(a[i,j]: 5); end; end; procedure saj; var i,j,k,b: integer; begin writeln; writeln; for b: =1 to n do for i: =1 to n do for j: =1 to m-1 do if a[i,j] k: =a[i,j]; a[i,j]: =a[i,j+1]; a[i,j+1]: =k; end; for b: =1 to n do for i: =2 to n do for j: =1 to m-1 do if a[i,j] k: =a[i,j]; a[i,j]: =a[i,j+1]; a[i,j+1]: =k; end; for b: =1 to n do for i: =3 to n do for j: =1 to m-1 do if a[i,j] k: =a[i,j]; a[i,j]: =a[i,j+1]; a[i,j+1]: =k; end; for b: =1 to n do for i: =4 to n do for j: =1 to m-1 do if a[i,j] k: =a[i,j]; a[i,j]: =a[i,j+1]; a[i,j+1]: =k; end; for b: =1 to n do for i: =5 to n do for j: =1 to m-1 do if a[i,j] k: =a[i,j]; a[i,j]: =a[i,j+1]; a[i,j+1]: =k; end; for i: =1 to n do begin for j: =1 to m do write(a[i,j]: 5); writeln; end; end; begin readln(n,m); form; viv; saj; readln end. записать в файл исходную и преобразованную матрицы! как это сделать не могу понять?

271

411

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

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

didlof7

Информатика

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

//я просто опишу метод записи матрицы const n=100; var ar: array of array of integer; ars: array of array of string; i: integer; procedure complection(var ar: array of array of integer; var ars: array of array of string); var i,j: integer; begin; for i: =1 to n do begin; for j: =1 to n do begin; ar[i,j]: =random(9); str(ar[i,j],ars[i,j]); end; end; end; procedure burning(ars: array of array of string); var i,j: integer; t: text; begin; assign(t,'text.txt'); rewrite(t); for i: =1 to n do begin; writeln(t,' '); for j: =1 to n do write(t,ars[i,j],' '); end; end; begin; randomize; setlength(ar,n+1); setlength(ars,n+1); for i: =1 to n do begin; setlength(ar[i],n+1); setlength(ars[i],n+1); end; complection(ar,ars); burning(ars); end.

antongrom68

Информатика

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

// pascalabc.net 3.0, сборка 1088 begin var a: =arrrandom(35,1,38); a.println; writeln(a.where(x-> x mod 5=0).aggregate((x,y)-> x*y)) end. тестовое решение: 35 1 3 3 1 19 31 38 31 32 33 10 7 22 21 1 18 17 19 32 21 18 31 30 10 2 23 34 33 23 12 25 12 5 30 393750000

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

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

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

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

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

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

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

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

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

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