Даны целые числа a1,a2,...

[NikSix]

Доброго времени суток, у меня такое задание на языке Pascal:

223 Даны целые числа a1,a2,... Известно, что a1 > 0 и что среди a2,a3,... есть хотя бы одно отрицательное число. Пусть a1,..., an - члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестно). Получить:

г) min (a1 + a2, a2 + a3, ..., an-1 + an);

Я написал код, вроде бы должно сработать, но почему то условия не соблюдаются и сумма продолжает присваиваться до конца цикла, помогите пожалуйста, весь день голову ломаю. Я еще не уверен что формулу правильную применил.

Вот код:

uses crt;
const
  nmax = 50;
 
var
  a: array[1..nmax * 2] of integer;
  n, i, sum: integer;
 
begin
  randomize;
  repeat
    write('Введите n (n <= ', nmax, ') = ');
    readln(n);
  until n in [1..nmax];
  writeln('[Массив]');
  for i := 1 to n do
  begin
    a[i] := random(99) + 1;
    write(a[i]:4);
  end;
  writeln;
  sum:=0;
  for i:=2 to n do 
    begin
      sum:=a[i-1]+a[i];
      writeln(a[i-1],' + ',a[i],' = ',sum);
      if (a[i-1]+a[i])<(sum) then 
          sum:=a[i-1]+a[i];
    end;
  writeln('Значения индексов: ', a[i-1], ' , ', a[i]);
  writeln('Минимальная сумма индексов: ',sum);
end.

[BDA]

Обычно, когда в задаче есть "n заранее неизвестно", то нужно считывать и обрабатывать числа по одному, а не заводить массив для хранения всех чисел последовательности. Ваш if всегда ложен, т.к. в sum уже сохранена сумма a[i-1] и a[i], а "a[i-1] + a[i]" не может быть меньше самого себя. Вам нужно две переменных: текущая сумма и минимальная сумма; их сравнивать в if и сохранять текущую в минимальную, если нужно. Еще нужно будет решить, чем инициализировать минимальную сумму, и что делать, если последовательность состоит из одного элемента.

UPD. Мне видится примерно так:

sum := -1;
read(a);
repeat
    read(b);
    if (b >= 0) and ((sum = -1) or (a + b < sum)) then
        sum := a + b;
    a := b;
until b < 0;
if sum = -1 then
    writeln('мало элементов')
else
    write(sum);

[NikSix]

BDA, Ваш ответ мне очень помог, большое спасибо! Код теперь работает как надо