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

Дана целочисленная последовательность из 50 элементов. Элементы с черными номерами необходимо просуммировать и вывести среднее значение на экран.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы