Организуйте массив. Определите сумму элементов с четными и нечетными индексами.

Program Maas;

const n=12;

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

i, sum, sumn: integer;

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

for i : = 1 to n do

begin

a[i] : = random (10) ;

write (a[i], ' ') ;

if i mod 2 = 0 then inc (sum, a[i])

else inc (sumn, a[i]) ;

end;

writeln;

writeln ('Сумма элементов с четными индексами = ', sum) ;

writeln ('Сумма элементов с нечетными индексами = ', sumn) ;

end.