две маленькие задачи в паскале

[Arkon]

1.
Определить сколько счастливых 6 значных биллетов по правилу: сумма чётных=сумме нечётных. кроме нолей

2.
Одномерный массив n<=40 заполнен случайными числами от -15 до 15

Непонимаю саму логику задач(это основная проблема) и неумею обращаться с массивами.
Решите задачи или пошлите почитать конкретную тему в учебнике. Самостоятельные поиски не дали результатов.

Благодарю за внимание.

[ViNcHeStEr]

2)

var
mas:array of integer;
n,i:byte;

label metka;

begin

metka:
write('Vvedite razmernost massiva: ');
Readln(n);

if n>40 then begin
goto metka;
end;

setlength(mas,n);

randomize;
for i:=1 to n do begin
mas[i]:=random(31)-15;
write(mas[i],' ');
end;

readln;

end.

В первой условие какое-то непонятное.

[puporev]

Если Вы из всего условия поняли только то, что написали, то Ваши проблемы ясны. Надо научиться сначала читать условие до конца, а если не поняли, то полностью привести его для тех у кого спрашиваешь.
Вот что Вы имели ввиду в обеих задачах?

[capta1n]

Я много чего повидал, но чтобы такие условия задач....))))