2 задачи((

[mAkAs1k]

1)Найти наибольшую сумму из сумм каждой строки массива M(5х5)
2)Вычислить сумму тех столбцов массива A(5x5) последний элемент которых равен элементу, стоящему на главное диагонали.


Заранее спасибо...

[rubius2008]

1)

maxsum:=0; for i:=1 to 5 do maxsum:=maxsum+M[1,i];
for i:=2 to 5 do begin
 sum:=0;
 for j:=1 to 5 do sum:=sum+M[i,j];
 if sum>maxsum then maxsum:=sum;
end;

[Mad_Cat]

const n=5;
var
  a:array[1..n,1..n] of real;
  s,smax:real ;
  i,j:integer;
 {Найти наибольшую сумму из
 сумм каждой строки массива M(5х5)}
begin
  smax:=-maxint;
  for i:=1  to n  do  begin
    s:=0;
    For j:=1 to n do
      begin
        a[i,j]:=random(50)-20+random(100)/100;
        s:=s+a[i,j];
        write(a[i,j]:8:2);
      end;
   if s>smax then smax:=s;
   write('    Sum Row  #',i,'=',s:8:2);
   writeln;
  end;
  writeln('SumMax=',smax:6:2);
  readln;
end.

const n=5;
var
  a:array[1..n,1..n] of real;
  s:real ;
  i,j,k:integer;
 {Вычислить сумму тех столбцов массива A(5x5)
 последний элемент которых равен элементу, стоящему на главное диагонали.}
begin
  for i:=1  to n  do
    For j:=1 to n do begin
      write('[',i,',',j,']=');
      Readln(a[i,j]);
    end;
  for i:=1  to n  do begin
    For j:=1 to n do
      write(a[I,J]:6:2);
    writeln;
  end;
  for j:=1  to n  do begin
    k:=0;
    if a[n,j]=a[j,j] then begin
      s:=0;
      k:=1;
      for I := 1 to n  do
      s:=s+a[i,j];
  end;
  if k=1 then writeln('SumCol #',j,'=',s:6:2);
  end;
  readln;
end.