Если в заданной матрице a(n, m) есть хотя бы один элемент, больший ста, то элементы обеих диагоналей замените нулями. написать программу на pascal

129

398

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

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

neshm08meshca

Информатика

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

Program gt; var a: array[1..100,1..100]of integer; n,m,i, j ,q: integer; begin read(n,m); q: =0; for i: =1 to n do for j: =1 to m do begin read(a[i, j]); if(a[i, j]> 100)then q: =1; end; if(q=1)then begin for i: =1 to n do for j: =1 to m do if(i=j)or(i=m-j+1)then a[i,j]: =0; end; for i: =1 to n do begin for j: =1 to m do write(a[i, j],' '); writeln; end; end.

KrASaVa307

Информатика

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

Uses graphabc; var i: integer; x, y: real; function f(x: real): real; begin f : = sqrt(3 * x); end; begin line(0, 240, 620, 240); line(300, 0, 300, 900); textout(310, 10, 'y=sqrt(3x)'); x : = 0; repeat x : = x + 0.03; y : = f(x); setpixel(round(300 + 10 * x), round(240 - 10 * f( clgreen); until 300 + 10 * x > 620 end. с апгрейдом uses graphabc; const scale = 20; var i: integer; x, y: real; function f(x: real): real; begin if x < 0 then f : = 0 else f : = sqrt(3 * x); end; begin window.init(0, 0, 1000, 1000, clmoneygreen); window.centeronscreen; line(0, window.height div 2, window.width, window.height div 2); line(window.width div 2, 0, window.width div 2, window.height); textout(window.width div 2 + 5, 10, 'y=sqrt(3x)'); x : = -1; repeat setpixel(round(window.width div 2 + scale * x), round(window.height div 2 - scale * f( clred); x : = x + 0.03; until scale * x > window.width div 2 end.

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

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

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

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

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

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

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

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

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

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