var
m: array[0..100]of integer;
i,k,n: integer;
begin
k: =0
randomize;
write('введите кол-во элементов массива');
read(n);
for i: =1 to n do
begin
m[i]: =random (30);
if i mod 2 =0 then k: =k+m[i]
else write ('четных элементов нет');
writeln ('сумма четных элементов', k);
end;
end.
В оглавлении произведения, разбитого на части, разделы, подразделы, главы, подглавы, параграфы, подпараграфы, примечания и т. п., устанавливающие соподчиненность отдельных частей произведения, последовательно приводятся наименования частей, разделов, глав, параграфов в полном объёме, так, как они даны в тексте, и указываются страницы, на которых начинается рубрика. Рубрики последней ступени — подзаголовки, взятые в тексте рукописи в подбор, — в оглавлении могут не приводиться. Взаимоподчиненность частей произведения в оглавлении передают средствами полиграфического оформления: выделением в красную строку, шрифт
Поделитесь своими знаниями, ответьте на вопрос:
var
a : array [1..1000] of integer;
i, n, sum : integer;
begin
read (n);
for i : = 1 to n do read (a[i]);
sum : = 0;
for i : = 1 to n do
if i mod 2 = 0 then inc (sum, a[i]);
writeln (sum);
end.