Сформировать одномерный массив из 6 целых чисел, элементы которого вводятся с клавиатуры. Подсчитать среднее арифметическое элементов с нечетными номерами.

Var a:array[1 ... 6] of integer; i, k, s:integer;

begin

for i:=1 to 6 do read (a[i]) ;

k:=0; s:=0;

for i:=1 to 6 do

if i mod 2 = 1 then begin k:=k+1; s:=s+a[i]; end;

writeln ('Среднее арифметическое элементов массива с нечетными номерами = ', s/k) ;

end.