Pascal. Задача 4-3

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

Примечание: Исключить из подсчета число 0.

Решение

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 A[i] mod 2 = 1 then sum2 := sum2 + A[i]
      else if A[i] <> 0 then sum1 := sum1 +A[i];
    end;
  writeln('Сумма четных - Сумма нечетных: ', sum1 - sum2);
end.

◄▲►