Решаем задачи Абрамян на Паскале. Matrix25

Matrix25. Дана матрица размера $$M \times N$$. Найти номер ее строки с наибольшей суммой элементов и вывести данный номер, а также значение наибольшей суммы.

Решение:

program Matrix25;
var
  a:array [1..10,1..10] of integer;
  Sum,MaxSum,MaxI,M, N, i, j:Integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);


 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 MaxSum:=0;
 for j:=1 to N do
  begin
   MaxSum:=MaxSum+a[1,j];
  end;
 MaxI:=1;

 for  i:=2 to M do
  begin
   Sum:=0;
   for j:=1 to N do
    begin
     Sum:=Sum+a[i,j];
    end;
   if Sum>MaxSum then
    begin
     MaxSum:=Sum;
     MaxI:=i;
    end;
  end;
 Writeln(MaxI,'=',MaxSum);
end.

program Matrix25;

var

a:array [1..10,1..10] of integer;

Sum,MaxSum,MaxI,M, N, i, j:Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

MaxSum:=0;

for j:=1 to N do

begin

MaxSum:=MaxSum+a[1,j];

end;

MaxI:=1;

for i:=2 to M do

begin

Sum:=0;

for j:=1 to N do

begin

Sum:=Sum+a[i,j];

end;

if Sum>MaxSum then

begin

MaxSum:=Sum;

MaxI:=i;

end;

Writeln(MaxI,'=',MaxSum);

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix25

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ