Помогите решить люди). Подсчитайте количество нулевых элементов в массиве из 10 целых чисел и распечатайте исходный массив в обратном порядке.
For i 1 to 10 do if a[i]=0 then inc(k) ===== for i 10 downto 1 do write(a[i]:4:2)