Ребята,нужно в паскале решить задачи на массив. 
1) в массиве 50 элементов. Определить количество чисел больше,равны и меньше нуля.
2) в массиве 20 элементов. Опеределить количество чисел,у которых:
Цифра десятков кратна 2(или  просто само число кратно 2) и число больше нуля.
Решение по типу этой задачи. Числа вводятся по запуску программы.

первая:var a:array[1..50] of integer;i,bol,men,ravn:integer;beginfor i:=1 to 50 do beginreadln(a[i]);if a[i]=0 then inc(ravn);if a[i]<0 then inc(men);if a[i]>0 then inc(bol);end;writeln(ravn,' - чисел равных нулю');writeln(men,' - чисел меньше нуля');writeln(bol,' - чисел больше нуля');end.