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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.