Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
stickz
Rails developer
10 / 10 / 0
Регистрация: 15.06.2009
Сообщений: 111
#1

Сколько элементов матрицы размера МхN превышает среднее арифметическое последней строки.

15.06.2009, 11:22. Просмотров 964. Ответов 1
Метки нет (Все метки)

Выяснить сколько элементов матрицы размера МхN превышает среднее арифметическое
последней строки.Создание и вывод матриц оформить в виде процедур,подсчет в виде функции.
Очень надо сегодня решить....
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.06.2009, 11:22
Ответы с готовыми решениями:

Определить среднее арифметическое элементов матрицы, переставить строки по убыванию числа ненулевых элементов
Дана матрица А(m, n), 1<(m, n)<10. Определить среднее арифметическое элементов...

среднее арифметическое наименьших отрицательных элементов каждой строки матрицы
найти среднее арифметическое наименьших отрицательных элементов каждой строки...

Вычислить среднее арифметическое четных элементов каждой отдельной строки матрицы У(4, 5)
Вычислить среднее арифметическое четных элементов каждой отдельной строки...

Удалить из матрицы строки, в которых все элементы чётные, вычислить среднее арифметическое элементов
Дана целочисленная квадратная матрица. 1) удалить из матрицы строки, в которых...

Определите среднее арифметическое элементов кратных 3, но не кратных 5 для каждой строки матрицы
народ помогите кто может.просто препод мне дал 50 заданий.нужно решить до конца...

1
Puporev
Модератор
54350 / 41942 / 28978
Регистрация: 18.05.2008
Сообщений: 98,790
15.06.2009, 12:07 #2
Лучший ответ Сообщение было отмечено stickz как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
uses crt;
const nmax=20;
type matr=array[1..nmax,1..nmax] of real;
procedure Vvod(var mt:matr;var x,y:byte);
var i,j:byte;
begin
for i:=1 to x do
for j:=1 to y do
mt[i,j]:=10*random;
end;
procedure Vyvod(var mt:matr;x,y:byte);
var i,j:byte;
begin
for i:=1 to x do
 begin
  for j:=1 to y do
  write(mt[i,j]:5:2);
  writeln;
 end;
end;
function Sred(mt:matr;x,y:byte):real;
var j:byte;
    sr:real;
begin
sr:=0;
for j:=1 to y do
sr:=sr+mt[x,j]/y;
Sred:=sr;
end;
function Kol(mt:matr;x,y:byte):integer;
var i,j:byte;
    k:integer;
begin
k:=0;
for i:=1 to x do
for j:=1 to y do
if mt[i,j]>Sred(mt,x,y) then k:=k+1;
Kol:=k;
end;
var a:matr;
    m,n:byte;
    s:real;
begin
clrscr;
randomize;
repeat
write('Количество строк m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов n=');
readln(n);
until n in [1..nmax];
Vvod(a,m,n);
writeln('Матрица:');
Vyvod(a,m,n);
writeln('Среднее в последней строке=',Sred(a,m,n):0:2);
writeln('Количество элементов больше среднего в последней строке=',Kol(a,m,n));
readln
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2009, 12:07

Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали
Найти среднее арифметическое элементов матрицы и сумму элементов тех строк...

Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L вк
Array6. Дан массив размера N и целые числа K и L (1 &lt; K ≤ L ≤ N). Найти среднее...

Сколько в одномерном массиве A1,A2...,An элементов, которые не превышают его среднее арифметическое.
Определить, сколько в одномерном массиве A1,A2...,An элементов, которые не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru