паскаль паскаль паскаль

Question

Задан одномерный массив А (n). Найти среднее арифметическое положительных элементов массива. 
 пожалуйста помогите решить задачу, я отблагодарю обязательно!!

Константин Андросов · Accepted Answer

PROGRAM _; 
USES crt; 
VAR a:array[1..n] of real; 
i,num:integer; 
key:real; 
BEGIN 
 i:=1; переменная счетчик 
 key:=0; переменная в которую складываем все положительные числа 
 num:=0; переменная в которой считаем количество положительных чисел 
repeat 
if a<0 then begin; 
 key:=key+a; 
 num:=num+1; 
end; 
until i=n; 
key:=key/num; в переменную помещаем ответ 
write(key); выводим ответ на экран 
end. 
могут быть опечатки, давно не писал на паскале

Юля Лойе · Answer

я вчера отвечал на твой вопрос

Татьяна Записочная · Answer

Решаю задачи программированнию за деньги)