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

про это ни слова в тексте вопроса не было. Алгоритм у вас есть - спокойно можете переписать на нужном вам языке (ведь вы же учили его синтаксис?) 

напишете на языке pascale

Прошу

я уже не могу редактировать свой ответ. На это даётся ограниченное время. И я спать пошёл.

на 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 сборка 1111Const 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.