Основы программирования на языке Turbo Pascal. Беляева И.В. - 119 стр.

UptoLike

Составители:

Рубрика:

119

{По очереди ищем ВСЕ цепочки в массиве}

while FindChain(T, NumDays, N, StartFinding,

beginChain, lengthChain)

begin

{Если длина найденной цепочки больше длины всех ранее

найденных цепочек, то запоминаем новую длину}

if lengthChain > maxLength

then maxLength := lengthChain;

{Следующую цепочку нужно искать, начиная с элемента,

следующего за концом найденной цепочки}

startFinding := beginChain + lengthChain;

end;

LongestChain := maxLength; {возвращаем найденную длину}

end;

{==========================================}

{ReadArrayTemperatures – процедура ввода массива температур

с клавиатуры}

{Данные вводятся в массив T. В NumDays заносится количество

дней в месяце (количество элементов в массиве T)}

procedure ReadArrayTemperatures(Var T: ArrayTemperatures;

Var NumDays: integer);

var

i : IndexElement;

begin

writeln;

repeat

write('Введите количество дней в месяце:');

readln(NumDays);

until (NumDays >= MinDays) and (NumDays <= MaxDays);

write('Введите значения температур по дням : ');

for i := 1 to NumDays do

read(T[i]);