Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
Линар1305
0 / 0 / 0
Регистрация: 28.04.2011
Сообщений: 20
1

Дана матрица размера M × N. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы.

16.04.2012, 06:39. Просмотров 1709. Ответов 3
Метки нет (Все метки)

Дана матрица размера M × N. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2012, 06:39
Ответы с готовыми решениями:

Матрица: Найти номер строки с наибольшей суммой элементов
Дана матрица размера M х N. Найти номер ее строки с наибольшей суммой элементов и вывести данный...

Матрицы. Найти номер строки с наибольшей суммой элементов
Matrix25.Дана матрица размера M х N. Найти номер ее строки с наибольшей суммой элементов и вывести...

Найти номер самой первой строки с наибольшей суммой элементов
Данная матрица TA(S,U) Найти номер самой первой строки с наибольшей суммой элементов и превратить...

Найти и вывести слово наибольшей длины, а также его номер
Пользователь вводит с клавиатуры несколько слов (кол-во определите сами). Найти и вывести слово...

Найти строку с наибольшей и наименьшей суммой элементов. Вывести на печать найденные строки и суммы их элементов
Найти строку с наибольшей и наименьшей сум- мой элементов. Вывести на печать найденные строки...

3
Ev[G]eN
iOS/Android Developer
Эксперт С++
5123 / 1561 / 951
Регистрация: 23.01.2011
Сообщений: 3,189
Завершенные тесты: 1
16.04.2012, 11:16 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
const
  n = 5;
  m = 5;
var
  Matr: Array[1..n, 1..m] of Integer;
  Summa, Maximal: Integer;
  Index, i, j: Byte;
begin
  Randomize;
  Summa:=0; Maximal:=0;
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    Summa:=0;
    for j:=1 to m do
    begin
      Matr[i, j]:=Random(20);
      write(Matr[i, j]:4);
      Inc(Summa, Matr[i, j]);
    end;
    if Summa > Maximal then
    begin
      Maximal:=Summa;
      Index:=i;
    end;
    writeln;
  end;
  writeln('Максимальная сумма в строке ', Index, ': ', Maximal);
end.
0
Линар1305
0 / 0 / 0
Регистрация: 28.04.2011
Сообщений: 20
17.04.2012, 06:36  [ТС] 3
Хотел сделать так, чтобы я сам вводил N, M. Но только при изменении кода, у меня ошибки выдает, на счет того, что ожидалось константное выражение, помогите пару строк дописать.
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5123 / 1561 / 951
Регистрация: 23.01.2011
Сообщений: 3,189
Завершенные тесты: 1
17.04.2012, 16:36 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
26
27
28
29
30
31
32
const
  Max_Value = 10;
var
  Matr: Array[1..Max_Value, 1..Max_Value] of Integer;
  Summa, Maximal: Integer;
  Index, n, m, i, j: Byte;
begin
  Randomize;
  Summa:=0; Maximal:=0;
  write('N: ');
  readln(n);
  write('M: ');
  readln(m);
  writeln('Матрица: ');
  for i:=1 to n do
  begin
    Summa:=0;
    for j:=1 to m do
    begin
      Matr[i, j]:=Random(20);
      write(Matr[i, j]:4);
      Inc(Summa, Matr[i, j]);
    end;
    if Summa > Maximal then
    begin
      Maximal:=Summa;
      Index:=i;
    end;
    writeln;
  end;
  writeln('Максимальная сумма в строке ', Index, ': ', Maximal);
end.
0
17.04.2012, 16:36
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2012, 16:36

Дана прямоугольная матрица. Найти столбец с наибольшей суммой элементов
Дана прямоугольная матрица. Найти столбец с наибольшей суммой элементов. Помогите решить. Буду...

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

Матрица: Найти строки с наибольшей и наименьшей суммой элементов
Дана матрица А(nxm).Найти строки с наибольшей и наименьшей суммой элементов.Вывести найденные...


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

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

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