Question

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

Answer 1

 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.