Подскажите пожалуйста решение для задачи по программированию в Паскале :)
(11 класс, тема: "Массивы")

Дан массив целых чисел, состоящий из 30 элементов. заполнить его с помощью датчика случайных чисел. Hайти:

a) сумму отрицательных элементов;

б) количество тех элементов, значения которых положительны и не превосходят заданного числа А.

Спасибо.

Beginfor i:=1 to 30 doa[i]:=random(50)-20;for i:=1 to 30 do if a[i]<0 then sum:=sum+a[i];writeln(sum);readln(k);for i:=1 to 30 doif (a[i]>0) and (a[i]<=k) then kol:=kol+1;writeln(kol);end.