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

@zloy_developer · Регистрация: 05.12.2011

Author24 — интернет-сервис помощи студентам

Ввести матрицу А(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.

Заранее благодарен!

@КонецСвета · 05.12.2011, 20:45

да тут осталось-то последнее действие - пройти по массиву сумм и выделить самое большое

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.

Новые блоги и статьи Все статьи Все блоги /
Kubernetes с Apache Flink для обработки данных в реальном времени Mr. Docker 17.05.2025 Kubernetes — это целая философия управления распределёнными приложениями. В отличие от "примитивных" решений вроде Docker Swarm, K8s (как его ласково называют в тусовке DevOps-инженеров) предлагает. . .	Использование декораторов в Python py-thonny 17.05.2025 Если вы когда-нибудь задумывались о том, как красиво расширить функциональность кода без лишней возни и дублирования, декораторы в Python — та самая волшебная палочка, которую вы искали. По сути, это. . .	Как некоторые отстают в навыках поиска информации в сети. Дублирование страницы открытого адреса в сети. Hrethgir 17.05.2025 . . . берём бразуер, для многих он является инструментом поиска информации в сети. Понятное дело, что чтобы переходить по сслыкам есть такая фишка - "открыть в новой вкладке", но, представим себе что вы. . .	Реализация многопоточных сетевых серверов на Python py-thonny 16.05.2025 Когда сталкиваешься с необходимостью писать высоконагруженные сетевые сервисы, выбор технологии имеет критическое значение. Python, со своей элегантностью и высоким уровнем абстракции, может. . .	C# и IoT: разработка Edge приложений с .NET и Azure IoT UnmanagedCoder 16.05.2025 Мир меняется прямо на наших глазах, и интернет вещей (IoT) — один из главных катализаторов этих перемен. Если всего десять лет назад концепция "умных" устройств вызывала скептические улыбки, то. . .
Гибридные квантово-классические вычисления: Примеры оптимизации EggHead 16.05.2025 Гибридные квантово-классические вычисления — это настоящий прорыв в подходах к решению сложнейших вычислительных задач. Представьте себе союз двух разных миров: классические компьютеры, с их. . .	Использование вебсокетов в приложениях Java с Netty Javaican 16.05.2025 HTTP, краеугольный камень интернета, изначально был спроектирован для передачи гипертекста с минимальной интерактивностью. Его главный недостаток в контексте современных приложений — это. . .	Реализация операторов Kubernetes Mr. Docker 16.05.2025 Концепция операторов Kubernetes зародилась в недрах компании CoreOS (позже купленной Red Hat), когда команда инженеров искала способ автоматизировать управление распределёнными базами данных в. . .	Отражение в C# и динамическое управление типами stackOverflow 16.05.2025 Reflection API в . NET — это набор классов и интерфейсов в пространстве имён System. Reflection, который позволяет исследовать и манипулировать типами, методами, свойствами и другими элементами. . .	Настройка гиперпараметров с помощью Grid Search и Random Search в Python AI_Generated 15.05.2025 В машинном обучении существует фундаментальное разделение между параметрами и гиперпараметрами моделей. Если параметры – это те величины, которые алгоритм "изучает" непосредственно из данных (веса. . .

Опции темы