Заполните массив из 18 элементов случайными числами из интервала от -5 до 5. вывести эл-ты массива на экран в одну строку через пробел. найти сумму первых 9 эл-тов, посчитать кол-во положительных среди последних 9 эл-тов. напишите программу, , ! заранее !

Ноль считается как отрицательное число 

Program hp;var a:array [1..100] of integer;i,n,s,k:integer;beginfor i:= 1 to 18 doa[i]:=random(10)-5;
for i:=1 to 18 dowrite('  ',a[i]);
for i:=1 to 9 dos:=s+a[i];

for i:=10 to 18 do beginif a[i]>0 thenk:=k+1end;writeln;write(s,'  ',k)end.