Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  prog
Language: PASCAL
Code:
program HelloWorld;
var
  c : array[1..4, 1..3] of integer;
  i, j, min : integer;
begin
 c[1,1] := 2;
 c[1,2] := 7;
 c[1,3] := 5;
 c[2,1] := 4;
 c[2,2] := 9;
 c[2,3] := 9;
 c[3,1] := 6;
 c[3,2] := 6;
 c[3,3] := 7;
 c[4,1] := 3;
 c[4,2] := 5;
 c[4,3] := 2;

  for i := 1 to 4 do 
  begin
    min := c[i,1];
    for j := 2 to 3 do 
    begin
      if(c[i,j] < min) then min := c[i,j];
    end;
    for j := 1 to 3 do 
      c[i,j] := c[i,j] - min;
  end;


  for j := 1 to 3 do
  begin
   for i := 1 to 4 do
   begin
    Write(c[i,j]);
    Write(' ');
   end;
   WriteLn();
  end; 
end.          
          
          
Comments: