Strict Standards: Declaration of action_plugin_importoldchangelog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldchangelog/action.php on line 8

Strict Standards: Declaration of action_plugin_importoldindex::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldindex/action.php on line 0

Deprecated: Function split() is deprecated in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 154

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 453

Strict Standards: Only variables should be passed by reference in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/doku.php on line 71
==== Zadání ====

Program postupně přečte z klávesnice 10 čísel, poté vypíše třetí největší z nich. Tip: pamatujte si tři největší čísla.

==== Řešení ====

<code pascal>

var
    i,               {citac cyklu for}
    n,               {promenna, do ktere ulozime nactene cislo}
    max1,            {maximum z dosud prectenych cisel}
    max2,            {2. nejvetsi z dosud prectenych cisel}
    max3: integer;   {3. nejvetsi z dosud prectenych cisel}
begin
  {nastavime promenne na takove hodnoty, ze po nejvyse trech prectenych cislech se zmeni na spravne hodnoty}
  max1 := -MAXINT;
  max2 := -MAXINT;
  max3 := -MAXINT;

  for i:=1 to 10 do begin
    {precteni cisla}
    writeln('Zadejte číslo: ');
    readln(n);

    {aktualizace maxim - n se stava 1. nejvetsim prectenym cislem}
    if n > max1 then begin
      max3 := max2;
      max2 := max1;
      max1 := n;

    {aktualizace maxim - n se stava 2. nejvetsim prectenym cislem}
    end else if n > max2 then begin
      max3 := max2;
      max2 := n;

    {aktualizace maxim - n se stava 3. nejvetsim prectenym cislem}
    end else if n > max3 then
      max3:=n;

  end;

  {vypis vysledku}
  writeln('Tři největší čísla jsou: ', max1, ', ', max2, ', ', max3, '.');
  readln;
end.

</code>