Определить номер строки матрицы в которой находится наибольший элемент.

uses crt;
type mas=array[1..100,1..100]of integer;
 
var i,j,m,n,s,max:integer;
mm:mas;
 
procedure maxnumber(mm:mas; n,m:integer; var num:integer);
var i,j:integer;
max:real;
begin
 num:=0;
 max:=mm[1,1];
 for i:=1 to n do for j:=1 to m do
 if mm[i,j]>max then
 begin
  max:=mm[i,j];
  num:=i;
 end;
end;
 
procedure print(mm:mas; n,m:integer);
var i,j:integer;
begin
 writeln('Ishodnaya matrica');
 for i:=1 to n do
 begin
  for j:=1 to m do write(mm[i,j]:3,' ');
  writeln;
 end;
end;
 
begin
 clrscr;
 write('Vvedite M,N -> ');
 readln(M,N);
 for i:=1 to n do for j:=1 to m do
 begin
  write('Vvedite element A[',i,',',j,'] -> ');
  readln(mm[i,j]);
 end;
 print(mm,n,m);
 maxnumber(mm,n,m,max);
 writeln('MAX element nahoditsa v ',max,'-i stroke');
 s:=0;
 for j:=1 to m do s:=s+mm[i,j];
 writeln('S=',s);
 readln;
end.

Uses crt;
 Const n=4; m=4;
var
    d:array[1..n,1..m] of integer;
    i,j,min,max,x1,y1,x,y,t:integer;
 
Begin
clrscr;
writeln('Ishodnaya matrica:');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
  d[i,j]:=random(30)-10;
  write(d[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
If d[i,j]>max then begin x1:=i; y1:=j; max:=d[i,j]; end;
writeln('Max=',max);
writeln;
for i:=1 to n do
for j:=1 to m do
If d[i,j]<min then begin x:=i; y:=j; min:=d[i,j]; end;
writeln('Min=',min);
writeln;
t:=d[x,y]; d[x,y]:=d[x1,y1]; d[x1,y1]:=t;
writeln('Rezultat:');
for i:=1 to n do
begin
for j:=1 to m do
begin
write(d[i,j]:4);
end;
writeln;
end;
readln;
end.

program m;
uses crt;
var t: array[1..5,1..5] of integer;
    i,j,min,max,max_i,max_j,min_i,min_j: integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
  for j:=1 to 5 do
  t[i,j]:=random(25);
writeln('Ishodnaja matriza:');
for i:=1 to 5 do
begin
  for j:=1 to 5 do
  write(t[i,j],' ');
  writeln;
end;
  writeln;
  max:=t[1,1];
  min:=t[1,1];
  for i:=1 to 5 do
  for j:=1 to 5 do
  begin
    if t[i,j]>max then
    begin
      max:=t[i,j];
      max_i:=i;
      max_j:=j;
    end;
    if t[i,j]<min then
    begin
      min:=t[i,j];
      min_i:=i;
      min_j:=j;
    end;
  end;
  writeln('max=',max,'min=',min);
  t[min_i,min_j]:=max;
  t[max_i,max_j]:=min;
  writeln('matriza 2:');
  for i:=1 to 5 do
begin
  for j:=1 to 5 do
  write(t[i,j],' ');
  writeln;
end;
readln;
end.

program m;
uses crt;
var t: array[1..5,1..5] of integer;
    i,j,s: integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
  for j:=1 to 5 do
  t[i,j]:=random(25);
writeln('Ishodnaja matriza:');
for i:=1 to 5 do
begin
  for j:=1 to 5 do
  write(t[i,j],' ');
  writeln;
end;
s:=0;
  writeln;
  for i:=1 to 5 do
    for j:=1 to 5 do
    if i=j then
    s:=s+t[i,j];
 
 for i:=1 to 5 do
    for j:=1 to 5 do
    if t[i,j]=0 then
    t[i,j]:=s;
 
for i:=1 to 5 do
begin
  for j:=1 to 5 do
  write(t[i,j],' ');
  writeln;
end;
readln;
end.

for i:=n to k do //где k-это размер всего массива
pr:=pr*b[i];
for i:=1 to k do
b[i]:=b[i]/pr;