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