Дан целочисленный масив n состоящий из 15элементов.массив формируется случайными числами из промежутка [0; 70].определите сумму элементов с чётными номерами.

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

i,s:integer;

begin

write ('Массив ');

for i:=1 to 15 do

begin

n[i]:=random(71);

write(n[i]:3);

if i mod 2 = 0 then s:=s+n[i]

end;

writeln;

write ('Сумма элементов с чётными номерами равна ',s)

end.