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

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

20.02.2018, 11:24. Показов 2494. Ответов 2
Метки нет (Все метки)

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

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

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

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

Найти сумму наибольших значений строк матрицы
Составить подпрограммы для решения следующих задач: 1. Даны натуральные M, N и матрица...

2
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
20.02.2018, 11:35 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
type matr = array[1..100, 1..100] of real;
 
function MaxRow(a: matr; i, m: integer): real;
var j, max: integer;
begin
  max := 1;
  for j := 2 to m do
    if a[i, max] < a[i, j] then
      max := j;
  MaxRow := a[i, max];
end;
 
function MinCol(a: matr; j, n: integer): real;
var i, min: integer;
begin
  min := 1;
  for i := 2 to n do
    if a[min, j] > a[i, j] then
      min := i;
  MinCol := a[min, j];
end;
 
var a: matr;
    i, j, n, m: integer;
    sum, mul: real;
begin
  sum := 0; mul := 1;
  randomize;
  write('N, M = '); read(n, m);
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i, j] := random * 31 - 15;
      write(a[i, j]:8:3);
    end;
    sum := sum + MaxRow(a, i, m);
    writeln;
  end;
  for j := 1 to m do
    mul := mul * MinCol(a, j, n);
  writeln('Sum = ', sum:0:3, '; Mul = ', mul:0:3);
end.
0
0 / 0 / 0
Регистрация: 29.11.2017
Сообщений: 5
20.02.2018, 11:56  [ТС] 3
спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.02.2018, 11:56
Помогаю со студенческими работами здесь

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

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

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

Найти сумму наибольших значений элементов строк матрицы
нужно составить следующие алгоритмы(текстовые): 1)Дана матрица размера m на n ,найти сумму...

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

Найти сумму наибольших значений элементов строк матрицы
Добрий день товарищи. Помогите решить задачи. 1. Задана действительная матрица размера 3*4. Найти...


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

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

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