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