Задание, дан массив из 15 случайных чисел с промежутком[-30;30]. найти: 1) вывести на экран все положительные числа; 2) посчитать все чётные числа; 3) найти сумму всех чисел кратных 3; 4) посчитать и вывести на экран все нечётные числа.
Pascal abc. Программа во вложении
спасибо)