Var a,b,k,s,i:integer;
begin
writeln('Введите границы интервала:');
readln(a,b);
k:=0; s:=0;
for i:=a to b do
if (i mod 2 = 0) and (i mod 3 <> 0)
then begin k:=k+1; s:=s+i; end;
if k<>0
then writeln('s = ',s,' k = ',k,' Среднее арифметическое = ',s/k)
else writeln('Искомых чисел в заданном диапазоне нет');
end.
Пример:
Введите границы интервала:
4 16
s = 52 k= 5 Среднее арифметическое = 10.4