дан массив из 10 целых чисел заполненный случайными числами из интервала [0; 15]. Определить является ли сумма элементов массива четным числом.

program mckd;

uses crt;

var a:=array [1 ... 100] of integer;

i, s:integer;

begin

randomize;

clrscr;

for i:=1 to 10 do

a[i]:=random (16) ;

for i:=1 to 10 do

s:=s+a[i];

if s mod 2 = 0 then writeln ('+') else ('-') ;

readln;

end.

С рандомом боюсь ошибся, но вроде по формуле