Задачи на массивы. I тип задач "Подсчет"

Дорогие 9-классники!
На уроке информатики мы с вами решали задачи на обработку массивов I типа - "Подсчет". Изучите внимательно усовершенствованную программу, где ввод и обработка элементов массива осуществляются в одном цикле, протестируйте ее в среде программирования и решите домашние задачи.
Пример
Дан одномерный массив A[10]. Элементами массива являются случайные числа от -20 до 20. Подсчитайте количество нулевых элементов данного массива.
Решение.
Program Podschet;
VAR A: array [1 . . 10] of integer; i, k: integer;
Begin
       k: = 0;
       Randomize;
       For i: =1 to 10 do
              Begin
                     A[i]: = Random (20) – Random (20);
                     Writeln (‘A[’, i, ‘]=’, A[i]);
                     IF A[i]: = 0 THEN k: = k +1;
              End;
       Writeln (‘Количество нулевых элементов =’, k);
End.

Итак, домашние задачи:
Задача 1
Дан одномерный массив A[10]. Элементами массива являются случайные числа от -10 до 10. Подсчитайте количество положительных элементов данного массива.

Задача 2
Дан одномерный массив A[15]. Элементами массива являются случайные числа от -10 до 30. Подсчитайте количество отрицательных элементов данного массива.

Желаю удачи!