ВЕКТОР, очень нужно Опции

[deymon81]

r
Дано n<=100 и вещественный вектор 'а' из n элементов. Вычислить величину ∑xi*yi, где элементами вектора х
i=1

(х1,х2......хр) являются отрицательные элементы вектора 'а' ,взятые в порядке их следования, элементами вектора y(y1,y2....yq) являются неотрицательные элементы вектора 'а', взятые в порядке их следования
r=min (p,q).


укажите хотя бы ссылку на похожую задачу....Заранее спасибо

Сообщение отредактировано: deymon81 - 1.03.2006 2:00

[Lapp]

укажите хотя бы ссылку на похожую задачу....Заранее спасибо

Какие могут быть ссылки на пару простых циклов?..

  p:=0; q:=0;
  for i:=1 to n do if a[i]<0 then begin
    Inc(p);
    x[p]:=a[i]
  else begin
    Inc(q);
    y[q]:=a[i]
  end;
  if p<=q then r:=p else r:=q;
  s:=0;
  for i:=1 to r do s:=s+x[i]*y[i];

Только опиши переменные и оформи прогу..

[deymon81]

Cпасибо, lapp....выручил