Homework (09/02/12)

gistfile1.pas

{--- 23 ---}
var matrix: array [1..15000, 1..15000] of integer;
      maxs: array [1..15000] of integer;
      m, n, tmp, i, k : integer;
begin
readln(m,n);
for i:=1 to m do
  begin
    maxs[i]:=0;
    for k:=1 to n do
	  begin
        matrix[i,k]:= random(300);
        write(matrix[i,k], ' ');
        if (k=1) or (matrix[i,k] > maxs[i]) then maxs[i]:= matrix[i,k];
      end;
    writeln;
   end;
writeln;
for i:=1 to m do
  writeln('Max [', i, '] = ', maxs[i]);
end.   

{--- 24 ---}
var matrix: array [1..15000, 1..15000] of integer;
      maxs: array [1..15000] of integer;
      m, n, tmp, i, k : integer;
begin
readln(m,n);
for i:=1 to m do
  begin
    for k:=1 to n do
      begin
        matrix[i,k]:= random(300);
        write(matrix[i,k], ' ');
      end;
    writeln;
  end;
writeln;
for i:=1 to n do
  begin
    for k:=1 to m do
      if (k=1) or (matrix[k, i] > maxs[i]) then maxs[i]:= matrix[k,i]; 
   end;
for i:=1 to n do
  writeln('Max [', i, '] = ', maxs[i]);
end.  


{--- 25 ---}
var matrix: array [1..15000, 1..15000] of integer;
    m, n, max_sum, line, tmp, i, k: integer;
begin
readln(m,n);
max_sum:=0;
line:=0;
for i:=1 to m do
  begin
    tmp:=0;
    for k:=1 to n do
     begin
       matrix[i,k]:= random(300) - 120;
       write(matrix[i,k], ' ');
       tmp:= tmp + matrix[i,k];
     end;
    writeln;
    if (tmp > max_sum) then 
     begin
       max_sum:= tmp;
       line:= i;
     end;
   end;
writeln('Line = ', line, ', sum = ', max_sum);
end.

{--- 26 ---}
var matrix: array [1..15000, 1..15000] of integer;
    m, n,  min_op, column, tmp, i, k: integer;
begin
readln(m,n);
for i:= 1 to m do
  begin
    tmp:= 1;
    for k:=1 to n do
      begin
        matrix[k, i]:= random(300) - 120;
        tmp:= tmp * matrix[k, i];
      end;
     if (i=1) or (tmp < min_op) then 
        begin
          min_op:= tmp;
          column:= i;
        end;
     writeln;
  end;
for i:=1 to n do
  begin
    for k:=1 to m do
      write(matrix[i,k], ' ');
    writeln;
   end;
writeln;
writeln('Column = ', column, ', min = ', minф_op);
end.