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