Cоставить программу формирования массива из первых n натуральных чисел (n задается с клавиатуры) и вычисления среднего арифметического нечетных элементов.

Uses crt;

var a=array[1 ... 100] of integer;

i, sum, k:integer;

begin

sum:=0; k:=0;

readln (n);

for i:=1 to n do

begin

readln (a[i]);

if (i mod 2=1) then begin

sum:=sum+a[i];

k:=k+1; end; end;

readln (sum/k);

end.