вычислить среднее арифметическое положительных элементов массива

 var a:array[1..10] of integer;i,k,s:integer;begin s:=0;  k:=0;for i:=1 to 10 do readln(a[i]);for i:=1 to 10 do if a[i]>0 then  begin s:=s+a[i]; k:=k+1; end;writeln(s/k);end.