задача

[мария 12]

помогите плиз... найти сумму элементов одномерного массива расположенных между 1 и 2 отрицательными элементами за1 проход по массиву..

[Pein95]

задача простая... наработки есть?

[мария 12]

begin
k1:=0;
k2:=0;
i:=1;
while (i<=n) do
begin
readln(x[i]);
if x[i]<0 then
begin
if k1=0 then
begin
k1:=i;
i:=i+1;
s:=0;
k2:=0;
while (i<=n) and (k2=0) do
begin
readln(x[i]);
if x[i]>=0 then
begin
s:=s+x[i] ;
writeln(s)
end
else
k2:=i;
i:=i+1
end;
end;
end
else i:=i+1;
writeln(s)
end;
if (k1=0)or (k2=0) then
writeln('решений нет,нет 2х отрицательных элементов')
else
if k2=k1+1 then
writeln('Отрицательные элементы соседи');
readln;
end;
результат не выводит вообще((

[Pein95]

за 1 проход тоисть нужно в етом проходе найти отрицательные елементы и пощитать суму елементов между ними?
или можно найти первый 2 мин елемент в отдельном цыкле?

[мария 12]

за всю программу нужно сделать один проход по массиву

[Donatello]

Во первых код программы заключай те в тег [code ] [/code ] он же в виде символа решетки присутствует в панели при наборе текста.

Во вторых у вас нету массива, ну либо я их так плохо понимаю что его тут не вижу. Массив задается след образом

x: array [1..10] of Integer;

[1.10] это размер массива или по другому кол-во элементов.
Если не принципиально как вводится массив, то вот массив из 100 элементов со случайным заполнением онного.

var
    x: array [1..100] of Integer;
    i: Integer;
begin
    for i := 1 to 100 do begin
      x[i] := random(50) - 25; // вычитание 25 позволит в массиве появлятся отрицательным числам
      Write(x[i],' ');
    end;

Дальше тебе надо сделать условие, которое позволит выполнить твое задание.
И в твоем коде например от ошибка

if (k1=0)or (k2=0) then

в это условие он у тебя войдет только в том случае, если k1 или k2 равны нулю, а не отрицательны или положительны, следовательно код должен выглядеть примерно так

if (k1>=0)or (k2>=0) then

и для массивов лучше использовать цикл for.

[мария 12]

ну я бы рада сделать с for но условия таковы что нужно с while может другой вариант предложишь???

[Donatello]

Ну про то что нужно с while Ты ничего не написала вот я и привел с for.
С while рандомное заполнение массива будет выглядеть наверное вот так.

var
    x: array [1..100] of Integer;
    i: Integer;
begin
    i:=1;
    While (i != 100) do begin
      x[i] := random(50) - 25; // вычитание 25 позволит в массиве появлятся отрицательным числам
      Write(x[i],' ');
      inc(i);
     end;

Но тут только заполнение массива положительными и отрицательными числами, я точно хз правильно я перевел из for в while, так как сам всегда для массивов использовал for.
Дальше надо подумать как за 1 цикл провести все остальные операции.

[мария 12]

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

[Donatello]

А вложенный цикл использовать можно??? Если да то есть идейка, если нет то над еще подумать.