Составить программу на языке паскаль. дана целочисленная прямоугольная матрица. найти количество строк, среднее арифметическое элементов которых меньше заданной величины. ( оформить в виде функции).

250

312

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

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

orlovapolina14

Информатика

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

Решение приложено. компилятор: pascalabc.net 3.0, сборка 1064

masaynay22mailru

Информатика

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

// pascalabc.net 3.0, сборка 1064 // "классическое" решение const nn=20; type sqmatrix=array[1..nn,1..nn] of integer; function avgrow(row,cols: integer; a: sqmatrix): double; var j,s: integer; begin s: =0; for j: =1 to cols do s: =s+a[row,j]; avgrow: =s/cols end; var i,j,n,k: integer; cavg: double; m: sqmatrix; begin write('количество строк (столбцов) в матрице: '); read(n); write('ограничение для среднего арифметического: '); read(cavg); randomize; // инициализация и вывод исходной матрицы writeln('*** сгенерированная матрица ***'); for i: =1 to n do begin for j: =1 to n do begin m[i,j]: =random(51)-20; write(m[i,j]: 4) end; writeln end; // собственно, решение k: =0; for i: =1 to n do if avgrow(i,n,m)< cavg then inc(k); writeln('количество отобранных строк равно ',k) end. тестовое решение: количество строк (столбцов) в матрице: 10 ограничение для среднего арифметического: 2 *** сгенерированная матрица *** -5 10 29 25 23 0 -17 5 -19 -4 4 -10 -4 13 3 -15 17 16 -4 -18 -6 24 -4 19 -16 -15 11 -4 14 -3 -7 -5 -10 -2 -17 19 -16 -2 4 -10 26 25 29 -8 27 20 13 -10 -9 9 -3 -11 18 -12 0 2 -7 -10 20 17 19 18 22 14 -18 -11 -20 28 9 15 -19 -1 -9 -15 -13 -1 25 -16 22 -5 3 1 -16 -16 -20 -17 8 -18 28 12 5 24 8 18 2 -12 -17 -6 -11 18 количество отобранных строк равно 5 второе решение дано для демонстрации возможностей современного паскаля. оно не подходит в качестве ответа в той части, что не использует отдельную функцию для нахождения среднего. по лаконичности записи оно вполне может соперничать с постепенно набирающим популярность языком, как python // pascalabc.net 3.0, сборка 1064 // решение, использующее возможности версии 3.0 var n: integer; cavg: double; m: array of array of integer; begin write('количество строк (столбцов) в матрице: '); read(n); write('ограничение для среднего арифметического: '); read(cavg); // инициализация и вывод исходной матрицы writeln('*** сгенерированная матрица ***'); setlength(m, n); for var i : = 0 to n - 1 do begin m[i] : = arrrandom(n, -25, 25); m[i].println end; // собственно, решение var k: =m.select(x-> x.average < cavg).count(x-> x=true); writeln('количество отобранных строк равно ', k) end. тестовое решение: количество строк (столбцов) в матрице: 10 ограничение для среднего арифметического: 2 *** сгенерированная матрица *** -23 -13 13 20 20 -6 22 9 15 -12 8 12 20 -12 -10 16 -1 10 13 1 17 -16 -8 20 1 24 9 -8 4 15 12 7 -9 21 13 11 15 -25 -10 -24 1 3 16 15 -3 -17 23 -12 -15 4 8 -2 10 -17 23 19 20 19 -7 21 11 5 -21 25 1 -24 -4 24 0 5 -24 -1 -6 12 -25 -11 -6 2 -2 -7 -25 -5 -19 -25 -18 -11 23 -18 24 20 16 22 7 -6 -10 22 -2 16 -12 -4 количество отобранных строк равно 4

tom0291837465

Информатика

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

Uses crt; var x,y,a,b,h: real; begin write('a: '); readln(a); write('b: '); readln(b); write('h: '); readln(h); clrscr; writeln(' x y'); x: =a; while x< =b do begin y: =sin(x)-cos(x); writeln(x: 7: 2,' ',y: 7: 2); x: =x+h; end; end.

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

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

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

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

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

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

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

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

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

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