Написать 2 программы:
1. Проверить, есть ли в массиве отрицательные элементы. Если есть, вывести а-номер первого такого элемента, b-номер последнего. (использовать барьер)
2. Проверить, является ли массив целых чисел симметричным

Первый ввод - кол-во чисел в массиве, дальше идут сами числа, выводит номер 1 и последнего

Обычно преподаватели за break карают нещадно)))

Alviko, правильно говорите) поэтому я убрала break. И во второй строчке выводится ошибка потому что не хватает [], а если их ставить, то выводится другая ошибка

я не смотрел эту версию,тут автор есть)))

Разные компиляторы, тестировал на FreePascal 2.6.0

program z1;var ar: array of integer;f, l, i, N: integer;begin        readln(N);        setlength(ar, N+1);        for i:=1 to N do read(ar[i]);        f:=-1;                for i:=1 to N do begin                if ar[i]<0 then begin                        f:=i;                        break;                end;        end;        if f>0 then begin                for i:=N downto 1 do begin                        if ar[i]<0 then begin                                l:=i;                                break;                        end;                end;                write(f,' ', l);        end        else write('No');end.program z2;var ar: array of integer;i, N: integer;otv: boolean;begin        readln(N);        setlength(ar, N+1);        for i:=1 to N do read(ar[i]);        for i:=1 to N div 2+1 do begin                 if ar[i]<>ar[N-i+1] then begin otv:=true; break; end;        end;        if otv=true then write('No')        else write('Yes');end.