Написать программу! pascalabc.net . вычислить m=(kolichestvo(s)+ kolichestvo(n))^2. где функция kolichestvo(c) вычисляет количество четных элементов под побочной диагональю двумерного массива.

186

356

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

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

Azzzzzaaaazzza

Информатика

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

// pascalabc.net 3.3, сборка 1600 от 23.12.2017 // внимание! если программа не работает, обновите версию! function kolichestvo(c: array [,] of integer): integer; begin result: =0; var n: =c.rowcount; for var i: =1 to n-1 do for var j: =n-i to n-1 do if c[i,j].iseven then result+=1 end; function massiv: array[,] of integer; begin var n: =readinteger('число строк/столбцов: '); result: =matrrandom(n,n,-99,99) end; begin var s: =massiv; s.println(4); writeln(4*s.colcount*'-'); var n: =massiv; n.println(4); writeln(4*n.colcount*'-'); var m: =sqr(kolichestvo(s)+kolichestvo(n)); writeln('m=',m) end. пример число строк/столбцов: 3 -77 -81 82 -30 -37 39 31 92 12 число строк/столбцов: 6 66 9 -64 -53 13 -61 16 -72 -25 38 -19 21 40 29 38 77 -38 11 31 76 -83 -17 -58 1 -2 39 -63 84 -35 -42 -23 -75 -57 92 -14 -73 m=64

Nikitakos222

Информатика

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

Function kolichestvo(a: array[,] of integer): integer; begin var c: =a.colcount-1; result: =a.elementswithindexes.where(k-> k[2]> c-k[1]). select(k-> k[0]).where(x-> x mod 2=0).count; end; begin var k: =readinteger('количество строк и столбцов в матрицах = '); var s: =matrrandom(k,k,-10,10); writeln('s: '); s.println(6); var n: =matrrandom(k,k,-10,10); writeln('n: '); n.println(6); writeln('m = ',sqr(kolichestvo(s)+kolichestvo(; end. пример: количество строк и столбцов в матрицах = 4 s: 9 9 -7 5 4 8 -2 8 8 10 -9 -2 10 -6 -3 -2 n: 9 -7 -4 -1 -1 -3 1 3 2 -6 -8 8 2 2 8 0 m = 81

nas81

Информатика

4,8(76 оценок)

program n1; uses crt; const n=10; var a,b: array[1..n] of integer; i,a1,b1: integer; s,s1: real; beginclrscr; randomize; for i: =1 to n do begin a[i]: =random(20); b[i]: =random(20); end; for i: =1 to n do begin s: =a[i]*b[i]/2; if s> s1 then begin s1: =s; a1: =a[i]; b1: =b[i]; end; end; writeln('naibolshya ploshad ',s,' y treugolnika s katetami ',a1,' i ',b1 ); readlnend.

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

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

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

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

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

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

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

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

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

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