Question

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

Answer 1

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.