Массивы

[Яков Repby]

Составьте программу вычисления функции:
z=(c1+x1+x2)*(1+k1+k2)/2;
,где х1--отрицательный элемент заданного массива А,имеющий наименьший индекс.
к1-его индекс (если такого элемента нет,то обе величины равны 0);
х2 и к2-соответствующие элементы массива.
с1-любое число.......
Заранее спасибо!

[sheka]

где-то я уже видел эту задачу, только не помню где.
что такое
"х2 и к2-соответствующие элементы массива", или вы тоже объяснить не можете:=?

[Яков Repby]

Я думаю что это произвольные элементы массива!

[sheka]

тогда ваши наработки в студию!

[Яков Repby]

хммм...Пока пусто...Сможете помочь?

[GROWZER]

если я доканца правильно понял условие задания то долджно выглдеть гдето так:

var  MAS: array[1..100] of Real; // масив описуем до 100 например ...
      z,c1,x1,x2,k1,k2:Real;
      counter:integer;

Begin
    // заполняем масив каким-нибудь образом....
    x1=0;
    k2=1; //тут любое число....
    c1=100; //тут любое число....
    x2=MAS[k2];
    for counter:=1 to 100 do // цыкл для поиска первого отрицательного элемента в масиве
        begin
            if (mas[counetr]<0) then
                begin
                    x1:=mas[counter];
                    k1:=counter;
                    break; 
                end;
        end; 
    z:=(c1+x1+x2)*(1+k1+k2)/2;
End.

[Яков Repby]

Спасибо!...Большое