PascalABCДан массив целых чисел. Выяснить, является ли s-ый элемент массива положительным числом. (Массив задается рандомно).