Одномерные Массивы(delphi)

Тема в разделе "Pascal and Delphi", создана пользователем Loony, 18 дек 2012.

Статус темы:
Закрыта.
  1. Loony

    Loony Гость

    Помогите сделать для зачета надо

    Дан одномерный массив А длиной М. Определить максимальное количество подряд идущих положительных элементов последовательности, не прерываемых ни нулями, ни отрицательными элементами. Вывести найденный фрагмент.
     
  2. gpatron

    gpatron Active Member

    Регистрация:
    13 авг 2009
    Сообщения:
    26
    Симпатии:
    0
    for i:=1 to M do
    begin
    if a>0 then begin
    if n1=0 then xi1:=i;
    Inc(n1);
    end;
    if (a<1) or (i=M) then begin
    if (n2<n1) then begin
    xi2:=xi1;
    n2:=n1;
    end;

    xi1:=0;
    n1:=0;
    end;

    end;
    for i:=xi2 to xi2+n2-1 do //вывод нужного куска массива ;
     
  3. Loony

    Loony Гость

    спасибо большое)
     
Загрузка...
Похожие Темы - Одномерные Массивы(delphi)
  1. Lizzz
    Ответов:
    1
    Просмотров:
    1.243
  2. Fazer77777
    Ответов:
    1
    Просмотров:
    1.665
  3. 203
    Ответов:
    2
    Просмотров:
    1.386
  4. 203
    Ответов:
    0
    Просмотров:
    948
  5. 203
    Ответов:
    2
    Просмотров:
    2.169
Статус темы:
Закрыта.

Поделиться этой страницей