Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2012, 00:10   #1
heartquake
Пользователь
 
Регистрация: 03.12.2012
Сообщений: 12
По умолчанию Задача на одномерный массив\PASCAL ABC

Дано натуральное число n и массив действительных чисел а [1 .. n]. В данном массиве выбрать возрастающую последовательность максимальной длины.

Спасибо
heartquake вне форума Ответить с цитированием
Старый 03.12.2012, 08:45   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

под рукой есть готовый код. поэтому, ловите и разбирайтесь:
Код:
const N = 15;
var
   a : array[1..N] of integer;
   i, iFirst, MaxLength, curLength : integer;
begin
  Randomize;
  for i:=1 to N do begin
    A[i] := Random(10)+1; {числа от 1 до 10}
    Write(A[i]:3);
  end;
  WriteLn;

  iFirst := 0;
  MaxLength := 0;

  i:=2;
  curLength := 1;
  while i <= N do begin
     if A[i]>A[i-1] then inc(curLength)
     else begin
       if curLength>MaxLength then begin
         MaxLength := curLength;
         iFirst := i-MaxLength;
         { WriteLn('очередной максимум в A[',iFirst:1,'] длина = ',MaxLength:1) }
       end;
       curLength := 1;
     end;
     inc(i);
  end;
  if curLength>MaxLength then begin
    MaxLength := curLength;
    iFirst := i-MaxLength;
    { WriteLn('очередной максимум в A[',iFirst:1,'] длина = ',MaxLength:1) }
  end;

  WriteLn('Максимальная последовательность с A[',iFirst:1,'] длина = ',MaxLength:1);

  Readln
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 03.12.2012, 16:40   #3
heartquake
Пользователь
 
Регистрация: 03.12.2012
Сообщений: 12
По умолчанию

Спасибо, разберусь)
heartquake вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача в Pascal ABC Лиза_ Паскаль, Turbo Pascal, PascalABC.NET 4 23.05.2012 10:00
Задача по Pascal (одномерный массив) VolKhara Помощь студентам 5 12.01.2012 23:37
задача Pascal ABC EvilCry Помощь студентам 2 26.10.2011 20:28
Задача на Pascal ABC 1 antony sky Паскаль, Turbo Pascal, PascalABC.NET 1 09.05.2011 10:54