Определить порядковые номера отрицательных элементов одномерного массива a[1..10] 100

На VBA:

Sub zad1()
    Dim a(9) As Double
    Dim otvet As String
    'заполним массив случайными числами
    Randomize
    For i = 0 To 9
        a(i) = Fix(Rnd * 100) - 50
        otvet = otvet + CStr(i + 1) + ":[" + CStr(a(i)) + "] "
    Next i
    otvet = otvet + vbCrLf + "<0: "
    'найдём отрицательные
    For i = 0 To 9
        If a(i) < 0 Then otvet = otvet + "[" + CStr(i + 1) + "] "
    Next i
    'выведем результат
    MsgBox (otvet)
End Sub

Пример работы:

//Pascal v3.0 сборка 1111
Const
 n=10;

var
 ar:array[1..n] of integer;
 i:integer;
begin;
 for i:=1 to n do
  readln(ar[i]);
 for i:=1 to n do
  if ar[i]<0 then write(i:4);
end.