1. В одномерном массиве А(10) вычислить среднее арифметическое квадратов положительных элементов.

Я Вам хочу напомнить, что в программировании использовать неинициализированные переменные - это плохой стиль. Конечно, Pascal ABC занесет в k ноль, но к примеру, Free Pascal этого не сделает.

Да я знаю помню про это. Но ABC в этом не нуждается, именно поэтому я это отметил в ответе.

И, кстати, далеко не все компиляторы при запуске задачи инициализируют датчик случайных чисел, так что при отсутствии Randomize Вы рискуете при каждом запуске получать одну и ту же последовательность чисел.