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

@EmoPed · Регистрация: 06.10.2011

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

Здравствуйте
Прошу натыкать меня носом в код, не могу понять - что не так.
Вот задача: Найти строку с наибольшей и наименьшей суммой элементов. Вывести на печать найденные строки и суммы их элементов.

Pascal

program zad2_3;
uses crt;
type matr=array[1..10,1..10] of integer;
var i,m,n,j,s,smax,smin,imax,imin: integer;
    x:matr;
begin
clrscr;
  write('Kolichestvo strock: '); readln(n);
  write('Kolichestvo stolbzov: '); readln(m);
  for i:=1 to n do
    for j:=1 to m do
      begin
        write('x(',i,',',j,')='); readln(x[i,j]);
      end;                                         {Vveli matrizu}
  writeln('Matriza:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(x[i,j],' ');
        writeln;                                       {Viveli matrizu}
    end;
  for i:=1 to n do
    begin
      s:=0;
      for  j:=1 to m do
        s:=s+x[i,j];
        writeln('summa v stroke ',i,'=',s);
        if smax<s then            
          begin
            imax:=i;                          {zapisivaem adres max stroki}
            smax:=s;
          end;
    end;
   i:=imax;
   write('naibolshaya stroka: ');
    for j:=1 to n do
      write(x[i,j],' ');writeln;
                                                         {Проблемная область}
  for i:=1 to n do
    begin
    s:=0;
      for j:=1 to m do
        s:=s+x[i,j];
        if smin>s then        {цикл отличается от предыдущего только знаком, но не работает как надо }
          begin
           imin:=i;
           smin:=s;
          end;
    end;
  i:=imin;
  write('Naimenshaya stroka: ');
    for j:=1 to n do
      write(x[i,j],' ');readln;
                                                                 {/Проблемная область}
  writeln('smax:',smax:3); writeln('imax:',imax:3);          {test}
  writeln('smin:',smin:3); writeln('imin:',imin:3);readln;   {test}
end.

Мне кажется оно живое. Вероятно я что-то где-то не заметил. Если исправить не получится, то, если можно, хотелось бы увидеть вариант решения.
Спасибо!

@Puporev · 08.10.2011, 08:17

Pascal

program zad2_3;
uses crt;
type matr=array[1..10,1..10] of integer;
var i,m,n,j,s,smax,smin,imax,imin: integer;
    x:matr;
begin
clrscr;
write('Kolichestvo strock: '); readln(n);
write('Kolichestvo stolbzov: '); readln(m);
for i:=1 to n do
for j:=1 to m do
 begin
  write('x(',i,',',j,')=');
  readln(x[i,j]);
 end;
clrscr;                                        {Vveli matrizu}
writeln('Matriza:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(x[i,j]:5);
  writeln;                                       {Viveli matrizu}
 end;
imax:=1; {найдем сумму в первой строке, она пока будет макс. и мин.}
imin:=1;
smax:=0;
for j:=1 to m do
smax:=smax+x[1,j];
smin:=smax;
writeln('summa v stroke 1=',smax);
for i:=2 to n do
 begin
  s:=0;
  for j:=1 to m do
  s:=s+x[i,j];
  writeln('summa v stroke ',i,'=',s);
  if smax<s then
   begin
    imax:=i;                          {zapisivaem adres max stroki}
    smax:=s;
   end
  else if smin>s  then
   begin
    imin:=i;                          {zapisivaem adres min stroki}
    smin:=s;
   end
 end;
writeln('naibolshaya summa v stroke ',imax,'=',smax);
for j:=1 to m do
write(x[imax,j],' ');
writeln;
writeln('naimenshaya summa v stroke ',imin,'=',smin);
for j:=1 to m do
write(x[imin,j],' ');
end.

	08.10.2011, 08:17