Дан массив из 10 элементов найти сумму элементов с четными номерами. Написать программу на языке программирования

program zz1;

var mas:array[1 ... 10] of integer;

i, p, max:integer;

begin

for i:=1 to 10 do / /получаем исходный массив случайным образом от 1 до 20

mas[i]:=random (20) + 1;

for i:=1 to 10 do

write (mas[i],' '); / /выводим полученный массив на экран

writeln; / /переходим на другую строку для вывода

for i:=1 to 10 do

if i mod 2 = 0 then p:=p+mas[i]; / /проверяем, если номер числа из массива четный, то число прибавляем к сумме

write (p) / /выводим ответ

end.