Задание
выводит на экран:
Оператор:
for i:=1 to 20 do
if a
\[i\]
<>0 then writeln \(a⟨0⟩\);выводит на экран:
- ненулевые элементы массива \(a\)
- положительные элементы массива \(a\)
- отрицательные элементы массива \(a\)
- цифру 0