Технический форум - Нужна помощь в программировании

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Нужна помощь в программировании (http://www.tehnari.ru/f43/t37068/)

Leonia

16.06.2010 14:30

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

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

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

Vladimir_S

16.06.2010 14:36

Язык какой?

Leonia

16.06.2010 14:38

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

Vladimir_S

16.06.2010 15:00

Цитата:

Сообщение от Leonia (Сообщение 348020)

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

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

Код:

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

16.06.2010 15:15

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

lamarez

15.05.2011 03:00

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

спасибо.

lamarez

15.05.2011 03:17

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

..........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

15.06.2011 09:30

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

Часовой пояс GMT +4, время: 22:53.