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

Найти наибольшую сумму из сумм строк двумерного массива

05.07.2012, 10:22. Показов 1085. Ответов 4
Метки нет (Все метки)

Найти наибольшую сумму из сумм строк двумерного массива и вывести номер этой строки. Использовать функцию пользователя.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.07.2012, 10:22
Ответы с готовыми решениями:

Найти наибольшую сумму из сумм строк двумерного массива и вывести номер этой строки
Найти наибольшую сумму из сумм строк двумерного массива и вывести номер этой строки. Использовать...

Найти наибольшую сумму из сумм строк двумерного массива и вывести номер этой строки
Найти наибольшую сумму из сумм строк двумерного массива и вывести номер этой строки. Использовать...

Найти наибольшую сумму из сумм каждой строки двумерного массива.
Найти наибольшую сумму из сумм каждой строки двумерного массива. Вывести на экран номера тех строк,...

Найти наибольшую сумму из сумм каждой строки матрицы
найти наибольшую сумму из сумм каждой строки массива М(5,5) ЗАРАНЕЕ СПАСИБО!

4
320 / 270 / 128
Регистрация: 24.05.2012
Сообщений: 629
05.07.2012, 10:46 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
const
    m = 3;
    n = 2;
 
type
    array2d = array[0..m - 1, 0..n - 1] of integer;
 
var
    ar: array2d;
    i, j, ind: integer;
    s, max: longint;
 
function LineSum(const ar: array2d; i, n: integer): longint;
var
    j: integer;
begin
    LineSum := 0;
    for j := 0 to n - 1 do
        LineSum := LineSum + ar[i, j];
end;
 
begin
    for i := 0 to m - 1 do
        for j := 0 to n - 1 do
            Read(ar[i, j]);
    max := -$80000000;
    ind := 0;
    for i := 0 to m - 1 do
    begin
        s := LineSum(ar, i, n);
        if s > max then
        begin
            max := s;
            ind = i;
        end;
    end;
    Write(ind);
end.
0
0 / 0 / 0
Регистрация: 05.07.2012
Сообщений: 4
05.07.2012, 19:14 3
программа не запускается(((
0
320 / 270 / 128
Регистрация: 24.05.2012
Сообщений: 629
06.07.2012, 09:01 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
33
34
35
36
37
38
39
40
const
    m = 3;
    n = 2;
 
type
    array2d = array[0..m - 1, 0..n - 1] of integer;
 
var
    ar: array2d;
    i, j, ind: integer;
    s, max: longint;
 
function LineSum(const ar: array2d; i, n: integer): longint;
var
    j: integer;
    s: longint;
begin
    s := 0;
    for j := 0 to n - 1 do
        s := s + ar[i, j];
    LineSum := s;
end;
 
begin
    for i := 0 to m - 1 do
        for j := 0 to n - 1 do
            Read(ar[i, j]);
    max := -$7fffffff;
    ind := 0;
    for i := 0 to m - 1 do
    begin
        s := LineSum(ar, i, n);
        if s > max then
        begin
            max := s;
            ind := i;
        end;
    end;
    Write(ind);
end.
Добавлено через 3 минуты
В Паскале longint принимает значения от -0x7fffffff до 0x80000000.
0
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
06.07.2012, 09:23 5
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
uses crt;
const nmax=20;
type mtr=array[1..nmax,1..nmax] of integer;
function Summa(a:mtr;st,n:byte):integer;
var i:byte;
    sm:integer;
begin
sm:=0;
for i:=1 to n do
sm:=sm+a[st,i];
Summa:=sm;
end;
var a:mtr;
    m,n,i,j,imx:byte;
    mx:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Суммы элементов строк:');
mx:=Summa(a,1,n);
imx:=1;
for i:=1 to m do
 begin
  writeln('Стр.',i,'=',Summa(a,i,n));
  if Summa(a,i,n)>mx then
   begin
    mx:=Summa(a,i,n);
    imx:=i;
   end;
 end;
write('Максимальная сумма в строке ',imx,'=',mx);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.07.2012, 09:23
Помогаю со студенческими работами здесь

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

Сформировать массив из сумм элементов строк двумерного массива
Напишите процедуру S (A, B), которая с двумерного массива целых чисел A размером 3x4 формирует...

Подсчитать сумму строк двумерного массива и вывести в виде одномерного массива
Подсчитать сумму строк двумерного массива и вывести в виде одномерного массива. Не пойму как...

Определить сумму элементов каждого столбца матрицы и наибольшую среди сумм
помогите пожалуйста с программой " Задан двумерный массив целых чисел(таблица) размерности (NxN)....


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

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

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