Для целочисленного массива A[1..5] выяснить, является ли сумма его элементов четным...

Question

Для
целочисленного массива A[1..5] выяснить, является ли сумма его элементов четным
числом. Вывести "ДА" или "НЕТ".

Answer 1

Program gt;
var a:array[1..1000]of integer
;i,n,s:longint;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
if(s mod 2=0)then writeln('YES')else write('NO');
end.