Массивы паскаль

[Barbaraa]

Задан массив x1, x2, …, x15.
Определить номер первого отрицательного xi
и номер последнего отрицательного xi. В паскале
Помогите пожалуйста

[BDA]

цикл от 1 до 15
    если x[i] меньше нуля, то
        напечатать i
        выйти из цикла
цикл от 15 до 1
    если x[i] меньше нуля, то
        напечатать i
        выйти из цикла

[Barbaraa]

Благодарю ❤️

[Barbaraa]

То есть вот так:

Program massiv;
Var x:array[1..15]  of integer;
i:integer;
begin
for i:=1 to 15 do
if x[i] >0 then break ;
Write ('i:=')
End
Begin
for i:=15 to 1 do
if x[i] <0 then break ;
Write ('i:=')
End
End.

Или как?

[digitalis]

В древней Мурлындии делали так:

Program massiv;
Var 
x:array[1..15] of integer;
begin
   i,i_frst,i_lst:integer;
   i_frst := -1 ;
//Здесь вручную или рандомно заполняем массив. Хоть бы так: 
    for i := 1 to 15 do Readln x[i] ;
    Writeln ('The array is full') ;
    for i:=1 to 15 do
      if x[i] < 0 then 
      begin
         i_lst := i ;
         if i_frst <0 then i_frst := i
      end ;
   if i_lst <0 then Writeln ('No negative numbers')
   else Writeln ('First = ', i_frst, 'Last = ', i_lst)
End.

[Barbaraa]

Почему-то в 7 строке, где Readln x[i] пишет: ожидалось имя процедуры или функции. Что это может быть?

[BDA]

Это digitalis "сэкономил" скобочек, поставьте их вокруг x[i]. i_lst тоже хорошо бы инициализировать -1. А еще перенес бы объявления переменных в раздел var по старинке.

[Barbaraa]

Всё получилось, большое спасибо!

[digitalis]

Да, со скобками маханул. С объявлениями - тоже: begin не туда втулил. Алиба: зима, ночь, холод...
i_lst не обязательно: при первом встреченном отрицательном там всё будет ОК, а если не будет ни одного отрицательного, об этом скажет i_frst, и тогда индекс "где это случилось" не будет иметь значения - бо нигде.
А студеням не нужно давать разжёванные решения: поиск ошибки вынудить их вникнуть в разбор исходника. Надеюсь

[BDA]

Сообщение от digitalis

а если не будет ни одного отрицательного, об этом скажет i_frst

Согласен, но тогда и нужно проверять i_frst после цикла

Сообщение от digitalis

А студеням не нужно давать разжёванные решения

Стараюсь.