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

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

04.06.2016, 22:56. Показов 1251. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите пожалуйста составить программу. Условие: дан двумерный целочисленный массив, состоящий из случайных чисел в диапазоне от -20 до 20. Найти сумму наибольших значений элементов ее строк.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.06.2016, 22:56
Ответы с готовыми решениями:

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

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

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

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

2
97 / 93 / 81
Регистрация: 10.01.2016
Сообщений: 663
Записей в блоге: 13
05.06.2016, 00:12 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses  Crt;
const high = 20;
      low  = -20;
      n    = 5;
      k    = 7;
type
      massiv = array [1..n, 1..k] of integer;
var   A : massiv;
 
Procedure In_Mas(var m:massiv; phight, plow : integer);
          var i, j : byte;
          Begin
               for i:=1 to n do
                   for j:=1 to k do
                       m[i,j]:=plow+Random(phight-plow+1);
          End;
 
Procedure Out_Mas(const m:massiv);
          var i, j : byte;
          Begin
               for i:=1 to n do
               begin
                    for j:=1 to k do
                        Write(m[i,j]:4);
                    WriteLn;
               end;
          End;
 
Function Maximum(const m:massiv):integer;
          var i, j     : byte;
              max, sum : integer;
          Begin
               sum:=0;
               max:= m[1,1];
               for i:=1 to n do
               begin
                   for j:=1 to k do
                   begin
                       if (m[i,j]>max) then max:=m[i,j];
                   end;
                   sum:=sum+max;
                   if  i<n then max:= m[i+1,1];
               end;
               Maximum:=sum;
          End;
 
BEGIN
     Randomize;
     ClrScr;
     In_Mas(A, high, low);
     WriteLn('A:');
     Out_Mas(A);
     WriteLn('Сумма = ', Maximum(A):4);
END.
1
0 / 0 / 0
Регистрация: 29.05.2016
Сообщений: 11
05.06.2016, 19:26  [ТС] 3
большое спасибо)
0
05.06.2016, 19:26
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2016, 19:26
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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