Паскаль. 12.дан массив а(3*4). найти сумму первых отрицательных элементов в каждом столбце. 13.даны два массива а(3*3) и в(3*3). вывести на экран тот из них, у которого меньше сумма элементов главной диагонали. 17.дан массив а(3*4). заменить все отрицательные элементы на противоположные.
226
270
Ответы на вопрос:
Program asd; uses crt; const n=3; const m=3; var a,b: array [1..n, 1..m] of integer; k,s,i,j,q: integer; begin clrscr; for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(9); write(' ',a[i,j]: 2); end; writeln; end; for i: =1 to n do begin for j: =1 to m do begin if i=j then s: =s+a[i,i]; end; end; writeln('matriza a: ',s); for i: =1 to n do begin for j: =1 to m do begin b[i,j]: =random(9); write(' ',b[i,j]: 2); end;
{12. дан массив а(3*4). найти сумму первых отрицательных элементов в каждом столбце.}uses crt; const n=3; m=4; var a: array [1..n,1..m] of real; x,y: integer; min,sum: real; begin sum: =0; for x: =1 to n do begin for y: =1 to m do begin a[x,y]: =random(10)-5; write(a[x,y]: 3: 0); end; writeln; end; writeln; for y: =1 to m do begin min: =0; for x: =n downto 1 do if a[x,y]< 0 then min: =a[x,y]; sum: =sum+min; end; writeln; writeln('сумма первых отрицательных элементов в каждом столбце: ',sum); end.{ 13. даны два массива а(3*3) и в(3*3). вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.}uses crt; const n=3; var a,b: array [1..n,1..n] of integer; x,y,sum1,sum2: integer; begin sum1: =0; sum2: =0; for x: =1 to n do begin for y: =1 to n do begin a[x,y]: =random(10); if x=y then sum1: =sum1+a[x,y]; write(a[x,y]: 3); end; writeln; end; writeln; for x: =1 to n do begin for y: =1 to n do begin b[x,y]: =random(10); if x=y then sum2: =sum2+b[x,y]; write(b[x,y]: 3); end; writeln; end; if sum1< > sum2 then begin writeln('сумма элементов главной диагонали меньше в массиве: '); for x: =1 to n do begin for y: =1 to n do if sum1> sum2 then write(b[x,y]: 3) else write(a[x,y]: 3); writeln; end; end; if sum1=sum2 then writeln('сумма элементов главной диагонали одинакова'); end.{ 17.дан массив а(3*4). заменить все отрицательные элементы на противоположные.} uses crt; const n=3; m=4; var a: array [1..n,1..m] of real; x,y: integer; begin for x: =1 to n do begin for y: =1 to n do begin a[x,y]: =random(10)-5; write(a[x,y]: 3: 0); if a[x,y]< 0 then a[x,y]: =-a[x,y]; end; writeln; end; writeln; for x: =1 to n do begin for y: =1 to n do write(a[x,y]: 3: 0); writeln; end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
TheAlexFunny14.07.2020 13:47
-
Nastyled05.05.2022 08:56
-
Сахарокcom10.06.2023 05:57
-
sofyashevtsova23.01.2020 16:07
-
daniil1453728.01.2020 14:37
-
rufiyamama30.07.2022 02:08
-
masaynay22mailru25.03.2023 10:12
-
ALENAFOKS29.05.2023 00:14
-
SaharKchayu28.06.2021 12:35
-
mironenkok2208.06.2022 18:14
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.