Дана целочисленная последовательность из 50 элементов. Элементы с черными номерами необходимо просуммировать и вывести среднее значение на экран.

Question

Информатика

Генрих

24 июня, 07:18

Дана целочисленная последовательность из 50 элементов. Элементы с черными номерами необходимо просуммировать и вывести среднее значение на экран.

+2

Ответы (1)

Знаете ответ на вопрос?

Васса · Answer 1

Program n1;

const n=50;

var a: array[1 ... n] of integer;

i, k, sum: integer;

begin

randomize;

for i:=1 to n do a[i]:=random (50) + 1;

for i:=1 to n do if i mod 2=0 then

begin

k:=k+1;

sum:=sum+a[i];

end;

writeln (sum/k) ;

end.