(* * * jmeno: premin * popis: najde cislo ktere je v posloupnosti pred minimem * level: 1 * * zadani: * Najde cislo, ktere je v posloupnosti pred minimem. * Napr: 5 2 100 5 6 0 --> 5. * Pokud takove cislo neexituje vytiskne 0. * input: * Jedno zadani na radku. Zadani ma tvar: *. Z: [cela nenulova cisla oddelena mezerou] 0 * Posledni zadani ma cislo 0. * * output: *. Z: premin * * soubory: * premin.pas, premin.out, premin.in * * au: vitas@popelka.ms.mff.cuni.cz * cp: gpl * *) var { cislo zadani } Z: Integer; { dvojtecka } dt: Char; x, pre, min, premin: Integer; begin repeat read(Z, dt, dt); write(Z, ': '); read(x); min := x; premin := 0; pre := 0; while x <> 0 do begin if x < min then begin min := x; premin := pre end; pre := x; read(x) end; writeln(premin); until Z = 0; end.