0 / 0 / 0
Регистрация: 09.10.2012
Сообщений: 23
1

Если среднее арифметическое элементов первой строки превышает среднее арифметическое элементов всей матрицы, то упорядочить столбцы матрицы по возрас

18.12.2012, 22:41. Показов 573. Ответов 0
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана действительная матрица A размерности (m x n) . Если среднее арифметическое элементов первой строки превышает среднее арифметическое элементов всей матрицы, то упорядочить столбцы матрицы по возрастанию максимальных элементов столбцов методом линейного выбора с обменом. В противном случае матрицу оставить без изменения.
Помогите!!!

Програмку написал методом пузырька, своим без понятия как. И как записать чтобы максимальные элементы выводило в одну строку, а не столбцом как здесь!

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
program vp_2_1;
 uses crt;
 type
  matr = array [1..50,1..50] of real;
 var
  a:array [1..50,1..50] of integer;
  b:array [1..50] of integer;
  s1, sm : real;
  i, j, m, n, max, c, k : integer;
 begin
 clrscr;
 writeln('Vvedite razmernost matrizi:');
 write('Chislo strok M:');readln(m);
 write('Chislo stolbzov N:');readln(n);
 for i:=1 to m do
 for j:=1 to n do
  begin
   write('a[',i,j,']:');
   readln(a[i,j]);
  end;
 clrscr;
 
 writeln( ' Ishodnaya matriza : ' );
 for i:=1 to m do
  begin
   for j:=1 to n do
    write('   ',a[i,j]:4);
   writeln;
  end;
 
 writeln;
 for j:=1 to n do
begin
 max:=a[1,j];
 b[j+1]:=max;
 for i:=1 to n do
  if a[i,j]>max then
   max:=a[i,j];
  writeln(' Maximalnie elementi v stolbcah : ',max) ;
end;
 
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if i=1 then s1:=s1+a[i,j];
    sm:=sm+a[i,j];
   end;
  writeln;
 end;
s1:=s1/n;
sm:=sm/(m*n);
writeln(' Srednee arifmeticheskoe pervoi stroki : ',s1:0:2);
writeln(' Srednee arifmeticheskoe vsei matrizi : ',sm:0:2);
 
if s1 > sm then
for k:=1 to n-1 do
 for j:=1 to n-k do
  if (b[j]>b[j+1]) then
  begin
   for i:=1 to n do
    begin
     c:=a[i,j];
     a[i,j]:=a[i,j+1];
     a[i,j+1]:=c;
    end;
   c:=b[j];
   b[j]:=b[j+1];
   b[j+1]:=c;
  end;
 
 writeln;
 writeln( ' Otsortirovannaya matriza : ' );
 for i:=1 to m do
 begin
  for j:=1 to n do
   write('   ',a[i,j]:4);
  writeln;
 end;
 
  writeln;
 for j:=1 to n do
begin
 max:=a[1,j];
 for i:=1 to n do
  if a[i,j]>max then
   max:=a[i,j];
  writeln(' Maximalnie elementi ',j,' stolbca : ',max) ;
 b[j]:=max;
end;
 
 readln;
 end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2012, 22:41
Ответы с готовыми решениями:

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

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

Найти среднее арифметическое элементов каждой строки матрицы Q (lm) и отнять его от элементов этой строки. размер матрицы 7х7.заранее спасибо
Найти среднее арифметическое элементов каждой строки матрицы Q (lm) и отнять его от элементов этой...

Найти среднее арифметическое первой и среднее квадратичное последней строки матрицы
В матрице 10х10 вещественных чисел от 0 до 5 найти среднее арифметическое первой и среднее...

0
18.12.2012, 22:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2012, 22:41
Помогаю со студенческими работами здесь

Найти среднее арифметическое первой и среднее квадратичное последней строки матрицы
В матрице 10х10 вещественных чисел от 0 до 5 найти среднее арифметическое первой и среднее...

Найти среднее арифметическое элементов каждого столбца и упорядочить столбцы по возрастанию этих элементов
Дана целая прямоугольная матрица размерности NxM. Найти среднее арифметическое элементов каждого...

Определить: среднее арифметическое элементов n-го столбца и сумму квадратов элементов k-й строки матрицы
Дан двумерный массив. Определить: среднее арифметическое элементов n-го столбца массива и сумму...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru