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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

121
ниже 20 градусов}
MaxLengthChain := LongestChain(T, NumDays, 20);
{Для контроля выводим массив температур}
PrintArrayTemperatures(T, NumDays);
{Выводим найденную длину}
writeln('Самый длительный период температуры');
writeln(' ниже 20 градусов продлился ',MaxLengthChain,
' дней');
end.

Страницы