Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Zadiraazat
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 13
#1

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

27.05.2014, 16:16. Просмотров 872. Ответов 3
Метки нет (Все метки)

Помните написать программу с использование функций или процедур
Дана матрица размером МxN. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а так же значение наибольшей суммы.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2014, 16:16
Ответы с готовыми решениями:

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

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

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

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

дана целочисленная матрица размера 5Х10. вывести её номер первой строки, содержашее разное колличество положительных и отрицательных элементов
помогите ришить пожалуйста по паскалю дана целочисленная матрица размера...

3
tomb2002
32 / 32 / 43
Регистрация: 07.02.2014
Сообщений: 89
27.05.2014, 19:19 #2
Лучший ответ Сообщение было отмечено Zadiraazat как решение

Решение

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
55
56
57
Program MassSum;
USES CRT;
Const
nmax = 10;
Type
myarray = array [1..nmax,1..nmax] of integer;
Var
M, N, st, max : Byte;
 
Procedure Index(M,N:byte);
Var
a         : myarray;
i, j, sum : integer;
Begin
WriteLn;
WriteLn('      Elementi massiva     Cymma ');
WriteLn('  |=============================|');
For i:=1 to M do
  Begin
    write(i,' ');
    sum:=0;
    For j:=1 to N do
      Begin
        a[i,j]:=random(45)+1;
        Write('| ',a[i,j]:3,' ');
        sum:=sum + a[i,j]
      End;
    write('|');
    textcolor(14);
    Write(sum:4);
      if sum > max then
        begin
          max:=sum;
          st:=i;
        end;
    textcolor(7);
    WriteLn(' |');
    If i=M then WriteLn('  |=============================|')
           else WriteLn('  |-----+-----+-----+-----+-----|');
  End;
End;
 
BEGIN
clrscr;
Randomize;
max:=0;
textcolor(7);
Write('Введите кол-во строк не больше ',nmax,' в массиве = ');
ReadLn(M);
Write('Введите кол-во столбцов не больше ',nmax,'  в массиве = ');
ReadLn(N);
Index(M,N);
WriteLn;
WriteLn('Номер строки : ',st);
Write('Максимальная сумма = ',max);
Readkey;
END.
0
Миниатюры
Дана матрица размером МxN. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер  
Zadiraazat
0 / 0 / 0
Регистрация: 27.05.2014
Сообщений: 13
27.05.2014, 22:40  [ТС] #3
спасибо. все работает. вот только таблицу не получается сместить)
0
tomb2002
32 / 32 / 43
Регистрация: 07.02.2014
Сообщений: 89
28.05.2014, 21:33 #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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Program MassSum;
USES CRT;
Const
nmax = 10;
Type
myarray = array [1..nmax,1..nmax] of integer;
Var
M, N, st, max : Byte;
 
Procedure Index(M,N:byte);
Var
a         : myarray;
i, j, sum : integer;
Begin
WriteLn;
GOTOXY(20,4);WriteLn('        Elementi massiva       Cymma ');
GOTOXY(20,5);WriteLn('  |=================================|');
For i:=1 to M do
  Begin
    GOTOXY(19,2*i+4);
    write(i,' ');
    sum:=0;
    For j:=1 to N do
      Begin
        a[i,j]:=random(45)+1;
        GOTOXY(15+j*7,2*i+4);
        Write('| ',a[i,j]:3,' ');
        sum:=sum + a[i,j]
      End;
    write(' |');
    textcolor(14);
    Write(sum:4);
      if sum > max then
        begin
          max:=sum;
          st:=i;
        end;
    textcolor(7);
    WriteLn(' |');
    If i=M then begin GOTOXY(20,2*i+5);WriteLn('  |=================================|'); end
           else begin GOTOXY(20,2*i+5);WriteLn('  |------+------+------+------+-----|'); end;
  End;
End;
 
BEGIN
clrscr;
Randomize;
max:=0;
textcolor(7);
Write('‚ўҐ¤ЁвҐ Є®«-ў® бва®Є *Ґ Ў®«миҐ ',nmax,' ў ¬ ббЁўҐ = ');
ReadLn(M);
Write('‚ўҐ¤ЁвҐ Є®«-ў® бв®«Ўж®ў *Ґ Ў®«миҐ ',nmax,'  ў ¬ ббЁўҐ = ');
ReadLn(N);
Index(M,N);
WriteLn;
WriteLn('Ќ®¬Ґа бва®ЄЁ : ',st);
Write('Њ ЄбЁ¬ «м* п б㬬  = ',max);
Readkey;
END.
0
Миниатюры
Дана матрица размером МxN. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер  
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2014, 21:33

Заполнить двумерный массив (5,4) целыми случайными числами в диапазоне от 0 до 20 и найти номер строки с наибольшей суммой чисел.
Заполнить двумерный массив (5,4) целыми случайными числами в диапазоне от 0 до...

Найти столбец с наибольшей суммой элементов и поменять его местами со строкой, имеющей тот же номер
Заполнить двумерный числовой массив А целыми числами. Найти столбец с...

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


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

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

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