Нужна помощь в программировании

[Leonia]

Нужна помощь в программировании

Написать программу подсчёта максимального количества подряд идущих отрицательных элементов в целочисленном массиве из 20 элементов.

Уважаемый пользователь! Ваша тема переименована, с целью легкочитаемости. Модератор

 

[Vladimir_S]

Язык какой?

 

[Leonia]

Я знаю только что нужно сделать в паскале.
(Не моё задание)

 

[Vladimir_S]

Я знаю только что нужно сделать в паскале.
(Не моё задание)

О том и вопрос. Пожалуйста:

Const
 N=20;
VAR
 Nneg_bef,Nneg_aft:BYTE;
 A:ARRAY[1..N] of INTEGER;
 i:INTEGER;
BEGIN
 RANDOMIZE;
 WriteLn('Initial array:');
 For i:=1 to N do
  begin
   A[i]:=RANDOM(1000)-700;
   Write(A[i]:5);
  end;
 WriteLn;
 Nneg_bef:=0;
 i:=0;
 Repeat
  INC(i);
  Nneg_aft:=0;
  If (A[i]<0) and (i<N) then
   begin
    INC(Nneg_aft);
    Repeat
     INC(i);
     If A[i]<0 then INC(Nneg_aft);
    Until (A[i]>=0) or (i=N);
   If Nneg_bef<Nneg_aft then Nneg_bef:=Nneg_aft;
  end;
 Until i=N;
 Writeln('The longest series consists of ',Nneg_bef,' negative elements');
 ReadLn;
END.

 

[Leonia]

Большое спасибо)))

 

[lamarez]

всё шикарно, но можно это же только на C#? или хоть на чем-то Си-подобном =)
c#/php/c++

спасибо.

 

[lamarez]

если точнее мне нужно подсчитать максимальное кол-во подряд идущих увеличивающихся чисел и уменьшающихся...

..........1.1, 2.5, 3.2, 4.2, 4.9, 3.6, 4.1, 3.1, 2.8, 2.7 , 2.8, 2.9, 3.3, 4.3, 5.4.........
повышение (максимум подряд) - 5 (1.1, 2.5, 3.2, 4.2, 4.9)
понижение (максимум подряд) - 4 (4.1, 3.1, 2.8, 2.7)

 

[Vladimir_S]

DENIS.OVCHI, ваш запрос перемещен во вновь созданную тему:
http://www.tehnari.ru/f42/t53209/#post538085
Эта ТЕМА ЗАКРЫТА