treti_nejvetsi_cislo_z_deseti [Programování]

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í

 
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.