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

Question

Информатика

Радим

2 марта, 14:59

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

+2

Ответы (1)

Знаете ответ?

Лидя · Answer 1

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.