Developing.ru

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

const 
  n=15;
var
  b:array[1..n] of double;
  p,i:integer;

.....
  p:=-1;
//заполнение вектора и поиск наибольшего отрицательного числа
  ii:=1;
  for i:=1 to n do begin
    ii:=ii*i;
    b[i]:=sin(sqr(i-1)*(i-1)/ii);
    if b[i]<0 then begin
      if p<0 then p:=i else if b[i]>b[p] then p:=i;
    end;
  end;
// p - это номер наибольшего отрицательного элемента, b[p] - сам элемент
// если p=-1 то таких элементов не было, но такой ситуации конечно не будет
.....