поиск в массиве и вычисление функции (Turbo Pascal)

[denis18]

Составить программу вычисления функции
z=(c+S1+S2)*(k1+k2)/2;
S1-среднее арифметическое заданного массива А,
K1-количество нулевых элементов в нем;
S2 и K2 соответствующие элементы второго массива В.
Для нахождения Si и Ki использовать SUBROUTINE

[Sheka]

хоть сам пробовал решить?!
мне интересно, кто тебе будет писать эту прогу?
если хоть кто-то найдется, то считай - тебе очень повезло потому, что:
1. автору было нечего делать.
2. ты его подкупил.(что более вероятно)

[dr.Jekill]

Код: Выделить всё

for i:=1 to n do 
if a[i]<0 then 
 begin
  s1:=a[i];
  k1:=i;
  break;
 end
 else
  begin
   k1:=0;
   s1:=0;
  end;

S2 и K2 соответствующие элементы массива.

К2 - номер S2? Что значит соотв. элементы?

[denis18]

Напиши пжл всю программу, а то я в паскале дуб. Сообщение отредактировал

[samec2011]

Стучите в асю 11один11-5шесть5шесть, обсудим.