1.Как вывести положительные элементы массива?
2.Как вывести элементы массива кратные пяти?

воспользоваться оператором IFIF a[i]>0   then writeln(a[i];IF (a[i] mod 5=0)   then writeln(a[i];