Инженер - программист МАЗ
293 / 64 / 2
Регистрация: 05.12.2011
Сообщений: 392
Записей в блоге: 3
1

Найти и вывести сумму элементов каждой строки и максимальную сумму элементов матрицы

05.12.2011, 20:07. Показов 3283. Ответов 1
Метки нет (Все метки)

Ввести матрицу А(5,7). Найти и вывести сумму элементов каждой строки и максимальную сумму элементов Подскажите, пожалуйста как сделать))) Вот посмотрите мои наработки и подскажите как дальше сделать
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
Program hp;
Uses crt;
Var a:array[1..10,1..10] of byte;
      summ:array[1..10] of byte;
      i,j,m,n:integer;
begin
 clrscr;
writeln('Введите размерность матрицы mxn: ');
write('m= '); readln(m);
write('n= '); readln(n);
writeln('Введите элементы матрицы: ');
for i:=1 to m do
   for j:=1 to n do begin
      write()'a[',i,',',j,']= ');
      readln(a[i,j]);
   end;
  writeln('Матрица');
  for i:=1 to m do begin
  for j:=1 to n do begin
       write(a[i,j]:3);
        summ[i]:=summ[i]+a[i,j];
  end;
  writeln;
 end;
 writeln('Сумма элементов в каждой строке: ');
 for i:=1 to m do writeln(i, строка: ',summ[i]);
 write('Для выхода нажмите Enter');
 readln;
end.
Заранее благодарен!
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2011, 20:07
Ответы с готовыми решениями:

Найти сумму элементов каждой строки матрицы и максимальную среди сумм
Доброй ночи. Необходима помощь. Задание горит, не могу сдать никак. Дана матрица A(n*n). Найти...

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

Найти сумму элементов каждой четной строки матрицы и произведение элементов каждой нечетной
В матрице D(10,15) найти сумму элементов каждой четной строки и произведение элементов ...

Найти максимальную сумму элементов строки матрицы
Данный двумерный массив. найти: а) максимальную сумму элементов строки; б) минимальную сумму...

1
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.12.2011, 20:45 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
Program hp;
Uses crt;
Var a:array[1..10,1..10] of byte;
      summ:array[1..10] of byte;
      i,j,m,n,max:integer;
begin
 clrscr;
writeln('Введите размерность матрицы mxn: ');
write('m= '); readln(m);
write('n= '); readln(n);
writeln('Введите элементы матрицы: ');
for i:=1 to m do
   for j:=1 to n do begin
      write('a[',i,',',j,']= ');
      readln(a[i,j]);
   end;
  writeln('Матрица');
  for i:=1 to m do begin
  for j:=1 to n do begin
       write(a[i,j]:3);
        summ[i]:=summ[i]+a[i,j];
  end;
  writeln;
 end;
 writeln('Сумма элементов в каждой строке: ');
 max:=summ[1];
 for i:=1 to m do
      begin
      writeln(i,' строка: ',summ[i]);
      if summ[i]>max then max:=summ[i];
      end;
 writeln('Максимальная сумма: ',max);
 write('Для выхода нажмите Enter');
 readln;
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2011, 20:45
Помогаю со студенческими работами здесь

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

Bз наибольших элементов каждой строки матрицы построить вектор.найти сумму элементов этого вектора
из наибольших элементов каждой строки матрицы А(4\4) построить вектор.найти сумму элементов этого...

Найти сумму элементов в каждой строке матрицы, сумму элементов в каждом столбце, max элемент из сумм
Задан двумерный массив целых чисел размерности N на M, массив либо вводится пользователем, либо...

Найти сумму элементов всей матрицы. Определить, какую долю в этой сумме составляет сумма элементов каждой строки
Выполнить обработку элементов прямоугольной матрицы A, имеющей N строк и M столбцов. Найти сумму...


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

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

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