Aktív témák

• #41 heihachi addikt heihachi #40

  2004-10-14 20:59:50 #41

  Ö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

  

  heihachi

  addikt

  válasz heihachi #40 üzenetére

  Íme:
  
  program Projectphc;
  
  {$APPTYPE CONSOLE}
  
  uses
  SysUtils;
  
  const
  n = 6;
  
  var
  a : array[1..n] of integer;
  b : array[1..n] of integer;
  k,j,t,s,max,bol : integer;
  
  begin
  a[1] := 12;
  a[2] := 2;
  a[3] := 11;
  a[4] := 4;
  a[5] := 10;
  a[6] := 7;
  b[1] := 0;
  b[2] := 0;
  b[3] := 0;
  b[4] := 0;
  b[5] := 0;
  b[6] := 0;
  for t:= 1 to n-1 do begin
  k := a[t];
  for j := t+1 to n do begin
  if k <= a[j] then begin
  inc(b[t]);
  end;
  end;
  end;
  b[n] := 0;
  max := b[1];
  s := 1;
  for t := 2 to n do begin
  if max < b[t] then begin
  max := b[t];
  s := t;
  end;
  end;
  k := a[s];
  write(s, ' ');
  if s <> n then begin
  for j := s+1 to n do begin
  if a[j] >= k then begin
  bol := 0;
  if j+1 > n then
  write(j, ' ')
  else
  for t := j+1 to n do begin
  if (a[t] < a[j]) and (a[t] >= k) then else bol := 1;
  end;
  if bol = 1 then begin
  k := a[j];
  write(j, ' ');
  end;
  end;
  end;
  end;
  readln;
  end.
  

  "Lehet a Shift 2 már realisztikusabb mint a valóság" by NOD

Aktív témák