Дан массив из 10 элементов вывести их на экран и выяснить является ли n-элемент отрицательным числом. КуМир!

var a: array[1 ... 999] of integer; var n: integer;

begin

for var i : = 1 to 10 do begin

a[i] : = random (-9, 9) ;

write (a[i] + ' ') ;

end;

writeln;

read (n) ;

if a[n] < 0 then

write (n + '-элемент является отрицательным числом')

else

write (n + '-элемент не является отрицательным числом') ;

end.