Определить строку матрицы с наибольшей суммой элементов - PascalABC.NET
Формулировка задачи:
Вводим целочисленную динамическую матрицу. Программа должна определять строку с наибольшей суммой элементов.
Решение задачи: «Определить строку матрицы с наибольшей суммой элементов»
textual
Листинг программы
const r=15; var a:array[,] of integer; n,m,i,j,s,mx,imx:integer; begin randomize; repeat write('Количество строк от 2 до ',r,' m='); readln(m); until m in [2..r]; repeat write('Количество столбцов от 2 до ',r,' n='); readln(n); until n in [2..r]; setlength(a,m,n); writeln('Матрица'); mx:=0; imx:=0; for i:=0 to m-1 do begin for j:=0 to n-1 do begin a[i,j]:=random(20); write(a[i,j]:3); if i=0 then mx:=mx+a[i,j]; end; writeln; end; for i:=1 to n-1 do begin s:=0; for j:=0 to n-1 do s:=s+a[i,j]; if s>mx then begin mx:=s; imx:=i; end; end; write('Максимальная сумма в строке ',imx,'=',mx); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д