Выбрать строку матрицы с наибольшей суммой элементов, и вывести элементы этой строки в вектор

ALEXSANDR123455

program qqq;
var a: array[1..6, 1..5] of integer;
var sum: array [1..6] of integer;
var  i, j, max: integer;
begin
for i:=1 to 6 do
for j:=1 to 5 do 
a[i,j]:=random(20);
writeln ('полученный массив');
for i:=1 to 6 do 
begin
for j:=1 to 5 do write(a[i,j],' ');
writeln('');
end;   
for i:=1 to 6 do 
begin
sum[i]:=0;
for j:=1 to 5 do  sum[i]:=sum[i]+a[i,j];
end;
max:=sum[1];
for i:=2 to 6 do
if sum[i]>max then max:=sum[i];   
writeln('Макс. сумма=',max);
end.
Задана матрица Z(6,5). Выбрать строку с наибольшей суммой элементов и вывести элементы этой строки в вектор, затем каждый отрицательный элемент умножить на номер столбца. Вывести результат в виде матрицы и вектора.
2 ответа

ALEXSANDR123455

program qqq;
const m=6;
      n=5;
var z:array[1..m, 1..n] of integer;
    v: array [1..n] of integer;
    i,j,sum,max,imax: integer;
begin
writeln('Матрица');
for i:=1 to m do
 begin
  for j:=1 to 5 do
   begin
    z[i,j]:=-25+random(51);
    write(z[i,j]:4);
   end;
  writeln;
 end;
max:=-maxint;
imax:=0;
for i:=1 to m do
 begin
  sum:=0;
  for j:=1 to n do
  sum:=sum+z[i,j];
  if sum>max then
   begin
    max:=sum;
    imax:=i
   end;
 end;
writeln('Макс. сумма=',max,' в строке ',imax);
writeln('Вектор');
for i:=1 to n do
 begin
  v[i]:=z[imax,i];
  if v[i]<0 then v[i]:=v[i]*i;
  write(v[i]:4);
 end;
 
end.


ALEXSANDR123455

СПАСИБО БОЛЬШОЕ, СПАС ПРЯМ)))