Предложен правильный алгоритм, выдающий верное значение. Допускается

Решение по шагам

1. 1

   Как рассуждать

   Решение. Пример правильной программы на языке Паскаль. x := 0;s := 0;for i := 1 to n do if a[i] > 3 then begin s := s + a[i]; inc(x); end;write(s / x);