Question

Найти номер последнего отрицательного числа в массиве Паскаль , господа.

Answer 1

Я не стану указывать эпитетов к своему коду, пусть он сам скажет за себя.
Алгоритм такой: просматриваем массив от конца к началу. И завершаем работу, как только встретим отрицательный элемент. А если так и не встретим до начала массива, значит таких элементов в массиве нет.

const
  n=20; { размер массива }
var
  a:array[1..n] of integer;
  i:integer;
  found:boolean;
begin
  Randomize;
  Writeln('Элементы массива');
  for i:=1 to n do begin
    a[i]:=Random(21)-10; { случайное число на интервале [-10;10] }
    Write(a[i]:4)
  end;
  Writeln;
  { собственно задание }
  i:=n;
  repeat
    found:=(a[i]<0);
    Dec(i)
  until (i=0) or found;
  if found then Writeln('Номер элемента равен ',i+1)
  else Writeln('Отрицательных элементов нет')
end.

Тестовое решение:
Элементы массива
  -3   5  -2   3   2  -2  -5   7   9  -3   1  -2  -1  -6   1  -6   2   8   7   1
Номер элемента равен 16

Answer 2

Вот код простой и понятный
В строке №7 мы записали переменную для хранения индекса отрицательного элемента.
В строке №19 мы задаем условие, при котором перебираются все 10 сгенерированных чисел и среди них ищется отрицательный, и если отрицательное число находится, то его индекс (номер) заносится в переменную K (строка №21).
В строке №23 записывается условие: если переменная «K» больше 0 (т.е. есть отрицательные элементы), то на экран выводится сообщение (строка №24). В обратном случае (если нет отрицательных элементов, и «K» так и останется равным 0), выведется сообщение (строка №26)

Answer 3

Я могу помочь вам найти ответ на ваш вопрос о том, как найти номер последнего отрицательного числа в массиве Паскаль. Вот несколько источников, которые могут быть полезны для вас:

- [Стековерфлоу на русском](https://ru.stackoverflow.com/questions/1213463/%D0%9E%D0%BF%D1%80%D0%B5%D0%B4%D0%B5%D0%BB%D0%B8%D1%82%D1%8C-%D0%B7%D0%BD%D0%B0%D1%87%D0%B5%D0%BD%D0%B8%D0%B5-%D0%B8-%D0%BD%D0%BE%D0%BC%D0%B5%D1%80-%D0%BF%D0%BE%D1%81%D0%BB%D0%B5%D0%B4%D0%BD%D0%B5%D0%B3%D0%BE-%D0%BE%D1%82%D1%80%D0%B8%D1%86%D0%B0%D1%82%D0%B5%D0%BB%D1%8C%D0%BD%D0%BE%D0%B3%D0%BE-%D1%8D%D0%BB%D0%B5%D0%BC%D0%B5%D0%BD%D1%82%D0%B0-%D0%BC%D0%B0%D1%81%D1%81%D0%B8%D0%B2%D0%B0): Этот сайт содержит вопрос и ответ о том, как определить значение и номер последнего отрицательного элемента массива в языке программирования VBA. В ответе представлен код, который использует цикл for для перебора элементов массива и запоминания индекса последнего отрицательного элемента. Также есть комментарии, которые объясняют логику кода и дают советы по улучшению. Этот код может быть адаптирован для языка Паскаль с небольшими изменениями. - [Киберфорум](https://www.cyberforum.ru/pascalabc/thread1823696.html): Этот сайт содержит задачу и решение о том, как найти номер последнего отрицательного элемента массива в языке Паскаль. В решении представлен код, который использует цикл for для ввода и вывода элементов массива и проверки их знака. В коде также учитываются случаи, когда отрицательных элементов нет или когда в ячейке не число. Этот код может быть использован как есть или модифицирован по вашему усмотрению.

Надеюсь, эта информация была полезна для вас. Если у вас есть еще вопросы, пожалуйста, задавайте.