последовательность

[pakusya]

привет!помогите решить задачу, не пойму как определить нули. вот она:
ввести последовательность из n целых чисел. найти сколько в ней нулей .написать программу. как в любой последовательности найти наибольшее число.мой e-mail:lara.pak@mail.ru
заранее благодарю.

[_SERGEYX_]

Первое, что пришло в голову...
1.

var i, res: integer; s: string;
begin
  res := 0;
  i := 120903405; //наше число
  s := IntToStr(i); //преобразуем его в строку
  for i := 1 to Length(s) do
    if s[i] = '0' then res := res + 1;
  ShowMessage(IntToStr(res));

2.

var i, res: integer; s: string;
begin
  res := 0;
  i := 120903405; //наше число
  s := IntToStr(i); //преобразуем его в строку
  for i := 1 to Length(s) do
    if strtoint(s[i]) > res then
    res := strtoint(s[i]);
  ShowMessage(IntToStr(res));