написать программу для нахождения среднего арифметического значения для массива. Массив заполняется следующим образом for i:=1 to 5 do a[i]:=2*i-1

var

 a : Array [1..5] of integer;

 b , i : integer;

begin

b:=0;

for i:= 1 to 5 do

 begin

   a[i] := 2 * i - 1;

   b := b + a[i] ;

 end;

 writeln((b/5));

end.