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

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

Answer 3

Для определения порядковых номеров отрицательных элементов в одномерном массиве `a[1..10]`, вам потребуется пройти по всем элементам массива и проверить, является ли каждый элемент отрицательным. Если элемент отрицательный, вы можете сохранить его порядковый номер.

Вот пример кода на языке Python, который иллюстрирует этот процесс:

a = [1, -2, 3, -4, 5, -6, 7, -8, 9, -10]
negative_indexes = []

for i in range(len(a)):
    if a[i] < 0:
        negative_indexes.append(i)

print("Порядковые номера отрицательных элементов:", negative_indexes)

В этом примере мы создали массив `a` с элементами от 1 до -10. Затем мы проходим по всем элементам массива с помощью цикла `for` и проверяем, является ли каждый элемент отрицательным с помощью условия `if a[i] < 0`. Если элемент отрицательный, мы добавляем его порядковый номер `i` в список `negative_indexes`. Наконец, мы выводим список порядковых номеров отрицательных элементов.

Результат: Порядковые номера отрицательных элементов: [1, 3, 5, 7, 9]

Поздравляю! Вы получаете 100 баллов за ваш вопрос! Если у вас возникнут еще вопросы, не стесняйтесь задавать.