[Асюнька]

Даны 25 целых чисел, каждое отличное от нуля. Если в последовательности положительные и отрицательные члены чередуются(+,-,+.....или -,+,-.....). то ответом должна служить сама исходная последовательность. Иначе получить все отрицательные члены последовательности, сохранив их порядок.

[lmikle]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

program Siquence;   {$APPTYPE CONSOLE}   var   A : Array [1..25] Of Integer;   function IsPMSiquence : Boolean; var   StartSign : Integer; begin   Result := True;   StartSign := Sign(A[Low(A)];   For I := Low(A) To High(A) Do     Begin        Result := Sign(A[i]) = StartSign;        StartSign := StartSign * (-1);        If Not Result Then Break;     End; end;   procedure InitArray; var   I : Integer; begin   I := Low(A);   While I <= High(A) Do     Begin       A[i] := Random(100) - 50; // from -50 to 49       If A[i] = 0 Then Continue;       Inc(I);     End; end;   procedure Print(All : Boolean); var   I : Integer; begin   For I := Low(A) To High(A) Do     If (All) Or ((Not All) And (A[i] < 0))       Then WriteLn(A[i]); end;   begin   InitArray;   WriteLn('Generated:');   Print(All);   WriteLn;   WriteLn('Result:');   Print(IsPMSiquence); end.

ЗЫ. Писал тута, так что могут быть синтаксические ошибки и очепятки.

[Асюнька]

Извени, а на каком языке ты писал???
Просто мне надо связать с Stringgridom

[ryderx34]

Сообщение от Асюнька

Извени, а на каком языке ты писал???
Просто мне надо связать с Stringgridom

{$APPTYPE CONSOLE} - консольное приложение.
В Stringgrid должны быть "25 целых чисел, каждое отличное от нуля" или
туда нужно выводить ответ ?

[lmikle]

Я писал на Delphi консольное приложение, которое просто демонстрирует алгоритм. Для демонстрации работы набор в массив генерится случайным образом. Откуда ты будешь значения в массив получать - твое дело.
Ну и вывод данных - заменть WriteLn на засовывание в ячейки StringGrid.