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

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

Ввести матрицу А(5,7). Найти и вывести сумму элементов каждой строки и максимальную сумму элементов Подскажите, пожалуйста как сделать))) Вот посмотрите мои наработки и подскажите как дальше сделать

Pascal

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

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.

Опции темы