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

Найти сумму наибольших значений элементов строк матрицы

04.11.2018, 21:55. Показов 3711. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана действительная матрица размера m * n. Найти сумму наибольших значений элементов её строк.
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2018, 21:55
Ответы с готовыми решениями:

Найти сумму наибольших значений элементов строк матрицы
Помогите пожалуйста составить программу. Условие: дан двумерный целочисленный массив, состоящий из...

Найти сумму наибольших значений элементов строк матрицы, а также произведение наименьших элементов её столбцов
Помогите, пожалуйста. Буду очень признательна. Дана действительная матрица размера MxN. Найти...

Найти сумму наибольших значений строк и произведение наименьших значений столбцов матрицы
Дана действительная матрица размера MxN. Найти сумму наибольших значений элементов ее строк, а...

Дана матрица размера m* n. Найти сумму наибольших значений элементов ее строк
дана действительная матрица размера m* n. Найти сумму наибольших значений элементов ее строк

7
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
04.11.2018, 22:12 2
Pascal
1
2
3
4
5
6
7
8
s:=0;
for i:=1 to m do
 begin
  max:=a[i,1];
  for j:=1 to n do
  if a[i,j]>max then max:=a[i,j];
  s:=s+max;
 end;
0
1 / 1 / 0
Регистрация: 02.10.2018
Сообщений: 30
11.11.2018, 12:42  [ТС] 3
Дана действительная матрица размера m https://www.cyberforum.ru/cgi-bin/latex.cgi?* n . Найти сумму наибольших значений элементов ее строк.
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
11.11.2018, 14:31 4
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
var a:array[1..20,1..20] of real;
    m,n,i,j:byte;
    mx,s:real;
begin
repeat
writeln('Введите количество строк и столбцов от 2 до 10');
readln(m,n);
until(m in [2..20])and(n in [2..20]);
writeln('Матрица');
writeln('max':n*5+7);
s:=0;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=9*random;
    write(a[i,j]:5:2);
    if j=1 then mx:=a[i,1]
    else if a[i,j]>mx then mx:=a[i,j];
   end;
  s:=s+mx;
  writeln(mx:7:2);
 end;
write('Сумма максимальных элементов строк=',s:0:2)
end.
0
1 / 1 / 0
Регистрация: 02.10.2018
Сообщений: 30
03.12.2018, 04:04  [ТС] 5
Дана действительная матрица размера m https://www.cyberforum.ru/cgi-bin/latex.cgi?* n . Найти сумму наибольших значений элементов ее строк. Элементы должны задаваться с клавиатуры.
0
1 / 1 / 0
Регистрация: 02.10.2018
Сообщений: 30
04.12.2018, 03:47  [ТС] 7
Ребят, подскажите, как изменить программу, чтоб она правильно выводила сумму максимальных элементов строк
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
program Yes;
 
const
 
   k = 5;
   M = 2;
   N = 2;
 
var
 
   b: array[1..k, 1..k] of real;
   a: array[1..M, 1..N] of Real;
   i, j: integer;
   s, max: real;
 
begin
   repeat
   until(M in [2..K]) and (N in [2..k]);
   Writeln('Введите элемента матрицы А:');
   for i := 1 to M do
      for j := 1 to N do
         Read(a[i, j]);
   Writeln('Матрица А:');
   for i := 1 to M do begin
      for j := 1 to N do 
         Write(a[i, j]:4:2, ' ');
         write(a[i, j]); 
         Writeln; 
      if j=1 then max:=a[i,1]
         else if a[i,j]>max then max:=a[i,j];
      end;
   s := s + max;
   writeln(max);
   write('Сумма максимальных элементов строк=',s);
   Readln;
end.
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
04.12.2018, 09:11 8
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
const  N = 2;
var  a: array[1..N, 1..N] of Real;
     i, j: integer;
     s, max: real;
begin
Writeln('Введите элемента матрицы А:');
for i := 1 to N do
for j := 1 to N do
Read(a[i, j]);
Writeln('Матрица А:');
s:=0;
for i := 1 to N do
 begin
  for j := 1 to N do
   begin
    if j=1 then max:=a[i,1]
    else if a[i,j]>max then max:=a[i,j];
    Write(a[i, j]:5:2);
   end;
  s := s + max;
  Writeln;
 end;
write('Сумма максимальных элементов строк=',s);
end.
0
04.12.2018, 09:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.12.2018, 09:11
Помогаю со студенческими работами здесь

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

Найти сумму наибольших значений в каждой строке матрицы
Доброго времени суток... помогите решить задачи пожалуйста срочно нужно!!! 1. Дан массив...

Найти сумму наибольших значений элементов строк матрицы
Помогите пожалуйста сделать. Дана вещественная матрица размером n х m. Найти сумму...

Найти сумму значений наибольших элементов строк матрицы
помогите пожалуйста решить задачу дана действительная матрица размера m*n. найти сумму значений...


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

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

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