Question

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

Answer 1

на 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

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

Answer 2

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

Answer 3

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

Answer 4

Прошу

Answer 5

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

Answer 6

//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.