Pascal. Задача 4-2

Подсчитать разницу между суммой всех элементов с четными индексами и суммой всех элементов с нечетными индексами.

Решение

Const
  N = 10;
var
  i, sum1, sum2 : integer;
  A : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите A[', i, ']: ');
      readln(A[i]);
    end;
  sum1 := 0;
  sum2 := 0;
  for i := 1 to N do begin
      if i mod 2 = 0 then sum1 := sum1 + A[i]
      else sum2 := sum2 + A[i];
    end;
  writeln('Сумма четных - Сумма нечетных: ', sum1 - sum2);
end.

◄▲►