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

Question

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

Answer 1

//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);<br>end.

Answer 2

На 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: "<br>    'найдём отрицательные
    For i = 0 To 9
        If a(i) < 0 Then otvet = otvet + "[" + CStr(i + 1) + "] "
    Next i
    'выведем результат
    MsgBox (otvet)
End Sub

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

---

Comments

На паскале и кумире надо

---

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

---

Буду благодарен если напигите

---

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

---

Прошу

---

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