Задача про массив

[xakkkkker]

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

[fixoto]

Если честно - легко! Вот только сейчас включу свои телепатические способности и прочитаю твои мысли чтобы узнать на каком языке писать программу

[Serge_Bliznykov]

fixoto, да Дельфи его интересует, Дельфи... ;-)
_________________________________

xakkkkker, БИНГО! поздравляю, Вы выиграли возможность получить готовый код :-D
А если серьёзно - просто интересно было решить задачку... Может потому, что она простая, как топор.. ;-)

{ на экран массив случайных действительных чисел. В этом массиве найти
отрезок наибольшей длины
}
const
  MasLen = 15;
var
  Mas : array[1.. MasLen] of real;
  i, j, maxNum, maxPos, k: byte;
begin
  Randomize;
  for i := 1 to MasLen do
    Mas[i] := Random*10.0 - 5;


  WriteLn;
  for i := 1 to MasLen do
    Write(Mas[i]:4:2,'  ');
  WriteLn;


  maxNum := 0;
  k := 1;
  for i := 1 to MasLen-1 do
  begin
    if (Mas[i]*Mas[i+1]) < 0 then inc(k)
    else
    begin
      if k > maxNum then
        begin
          maxNum := k;
          maxPos := i-k+1;
        end;
      k := 1;
    end;
  end;
  writeLn('Max cheredovanie = ',MaxNum:1,' s elementa ',maxPos);
  readln
end.