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

Ответы 6

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

      obrien
    • 6 лет назад
    • 0
  • напишете на языке pascale
  • Прошу
  • я уже не могу редактировать свой ответ. На это даётся ограниченное время. И я спать пошёл.
    • Автор:

      ashes
    • 6 лет назад
    • 0
  • на 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 img
  • //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.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years