Помогите пожалуйста написать ** Паскале! Написать программу, которая запрашивает массив...

Question

Помогите пожалуйста написать на Паскале!
Написать программу, которая запрашивает массив из N целых чисел, а затем складывает все элементы с нечетными номерами и все элементы с четными номерами и выводит их сумму, а также сам исходный массив.

Answer 1

Var
  a:array [1..100] of integer;
  n,i,s1,s2:integer;
begin
  writeln('введите кол-во эл-тов массива');
  readln(N);
  for i:=1 to n do
  begin
   read(a[i]);
  if i mod 2<>0 then s1:=s1+a[i]
  else s2:=s2+a[i];
 end;
  writeln;
  writeln('Исходный массив');
  for i:=1 to n do
   write(a[i]:7);
  writeln('сумма элементов с нечетными номерами',s1);
  writeln('сумма элементов с четными номерами',s2);
end.