Question

program n_3_1
var s,i: integer
a:array[1..10] of
integer;
begin
s:=0
randomize
for i:=1 to 10 do
begin
a[i]:=random(100)
write (a[i],' '),
s:=s+a[i]
end
writeln('s=',s)
end


вопросы
1 определить имя масива
2узнать тип элементов массива
3 какой переменной обозначены индексы элементов массива
4кол-во элементов в даннома масиве
5как обозначается текущий элемент масива
6есть ли отрицательные элементы в данном массиве
СРОЧНО ПОМОГИТЕ ПРОШУ ДАМ 29 БАЛОВ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!