Мишка любит мёд и хранит его в 15 полных горшочках разного веса да 2 кг. количество мёда в каждом горшочке выражено в килограммах (0.5, 1.85, 0.4 и найдите: а) сколько всего мёда запас мишка; б) среднее количество мёда в одном горшочке.

Вот
const a:array[1..15] of real=(0.5,1.85,0.4,1.5,0.9,1.2,1.8,0.6,0.3,1.1,1.4,0.2,1.2,1.6,0.5);
var i: integer;
s,k:real;
begin
s:=0;
for i:=1 to 15 do
s:=s+a[i];
i:=i+1;
writeln('Мёда запас: ',s);
k:=s/15;
write('Средние коллисество мёда в горшке: ',k);
end.