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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.