Új hozzászólás Aktív témák

• #846 Drótszamár őstag Lali87 #845

  Új Válasz 2005-12-11 10:58:25 #846

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Drótszamár

  őstag

  válasz Lali87 #845 üzenetére

   

  
  Const n = sok;
  
  type matrix = array[1..n,1..n] of integer, word, mindegy;
  
  var 
        m : matrix;
     min : integer, word, mindegy
   helyx : integer;
   helyy : integer;
  
  begin
   feltöltés;
   min:=m[1,1];
   helyx:=1;
   helyy:=1;
   for i:=1 to n do
    Begin
     if m[i,i]<min
       Then
         Begin
          min:=m[i,i];
          helyx:=i;
          helyy:=i;
         End;
     if m[n-i+1,i]<min
       Then
         Begin
          min:=m[n-i+1,i];
          helyx:=n-i+1;
          helyy:=i;
         End;
    End;
   writeln(''A legkisebb elem: ''+szöveggéalakítás(min)+''   ''+inttostr(helyx)+''.  sor, ''+inttostr(helyy)+''. oszlop'');
  end;
  

  
  
  Ha hibás, akkor az azért van, mert másnapos vagyok, és csak 4 órát aludtam.
  
  
  A kilógó sor: writeln('A legkisebb elem: '+szöveggéalakítás(min)+' '+inttostr(helyx)+'. sor, '+inttostr(helyy)+'. oszlop');

  [Szerkesztve]

Új hozzászólás Aktív témák