Заполните массив из 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.

а почему от 1 до 100?

просто я уже на автомате написал