Оператор:
for i:=1 to 20 do
if a

<>0 then writeln \(a⟨0⟩\);
выводит на экран:

• ненулевые элементы массива \(a\)
• положительные элементы массива \(a\)
• отрицательные элементы массива \(a\)
• цифру 0