Например, дана числовая последовательность которая заканчивается нулем (ноль является признаком завершения последовательности и не является ее элементом). Определить количество элементов в последовательности.

Пример входных данных: 4 6 23 564 1 23 0

Очевидно, что цикл с параметром для решения этой задачи является не лучшим выбором, так как нам не известно количество элементов, а следовательно неизвестно количество повторений тела цикла. Следовательно, более удачным выбором будет цикл с условием.

Решим эту задачу с использованием цикла с предусловием.

var a: longint; // Значение текущего элемента
    n: longint; // Количество элементов

begin
 // Читаем первое значение из входного потока
 read(a);
 // Обнуляем счетчик элементов
 n := 0;
 // Пока мы не прочтем нулевое значение, повторяем
 while a <> 0 do
  begin
   n := n + 1; // Увеличить счетчик на единицу
   read(a);    // Читаем следующее значение
  end;
 // Выводим результат
 writeln(n)
end.