Дан массив А (16-элементов) необходимо вывести на экран положительные элементы меньше 15, а также найти среднее арифметическое элементов массива, которые больше 16.

Const n = 16;

var a : array [1 ... n] of integer; i, kol, sum : integer; sr : real;

begin

for i: = 1 to n do readln (a[i]) ; for i: = 1 to n do if (a[i] > 0) and (a[i] 16 then begin inc (kol) ; sum: = sum + a[i]; end; sr: = sum/kol; writeln (sr) ;

end.