Нужна по информатике за 11 класс по теме массивы в оценка за ! 100 ! 1)(в паскале)дана матрица размера м x n.в каждой ее строке найти количество отрицательных элементов и вывести результаты на экран с указанием номера строки. 2)дан двумерный массив.определить среднее арифметическое элементов главной диагонали массива. будьте добры,хотя бы одну

139

277

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

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

uhon1k

Информатика

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

// pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin var m: =readinteger('количество строк в матрице: '); var n: =readinteger('количество столбцов в матрице: '); writeln('*** исходная матрица [',m,',',n,'] ***'); var a: =matrrandom(m,n,-50,50); a.println(4); writeln(4*a.colcount*'-'); var b: =a.rows.select((x,r)-> (x.where(q-> q< 0).count,r)); foreach var x in b do write(x[1]+1,')',x[0],' ') end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5,8] *** 40 50 4 44 10 13 39 5 10 -41 -9 38 27 -9 34 9 8 29 37 -18 13 -41 23 -8 15 -49 -27 -31 -22 -4 46 -31 -36 36 34 -43 -33 -23 -24 -6 1)0 2)3 3)3 4)6 5)6 // pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin var m: =readinteger('количество строк/столбцов в матрице: '); writeln('*** исходная матрица [',m,',',m,'] ***'); var a: =matrrandom(m,m,-50,50); a.println(4); writeln(4*a.colcount*'-'); var s: =0; for var i: =0 to m-1 do s: =s+a[i,i]; writeln('ср.арифметическое равно ',s/m) end. пример количество строк/столбцов в матрице: 5 *** исходная матрица [5,5] *** 10 47 -5 -37 30 44 39 1 24 46 47 6 -26 -32 -16 -8 -49 18 15 22 4 4 -48 -36 -14 ср.арифметическое равно 4.8

romchik238

Информатика

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

№1 var m,n,i,j,col: integer; ar: array[1..100,1..100] of integer; begin write('строки : '); read(m); write('столбцы : '); read(n); for i: =1 to m do begin write(i,': '); for j: =1 to n do begin read(ar[i,j]) end; end; for i: =1 to m do begin for j: =1 to n do begin if (ar[i,j]< 0) then col: =col+1; end; writeln(i,': ',col); col: =0; end; end. №2var m,n,i,j,sum,col: integer; ar: array[1..100,1..100] of integer; begin write('строки : '); read(m); write('столбцы : '); read(n); for i: =1 to m do begin write(i,': '); for j: =1 to n do begin read(ar[i,j]) end; sum: =0; end; for i: =1 to m do begin for j: =1 to n do begin if (i=j) then begin col: =col+1; sum: =sum+ar[i,j]; end; end; end; writeln(sum/col); end.

veyper1

Информатика

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

Аладдин джинн "волшебная лампа алладина" из цикла 1000 и 1 ночьалёша старик хоттабыч "старик хоттабыч" л.и. лазурь иван серый волк "молодильные яблоки и живая вода" народ незнайка воздушный шар "незнайка в солнечном городе" н.н. носов женя "цветик-семицветик"в.п. катаев

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

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

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

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

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

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

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

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

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

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