20.11.2009, 04:02
|
|
Reservists Of Antichat - Level 6
Регистрация: 25.04.2008
Сообщений: 827
С нами:
9497186
Репутация:
1304
|
|
warkk
Код:
t:=0;
for i:=0 to n-1 do
begin
if m[i]<m[i+1] then k:=k+1
else k:=1;
if t<k then t:=k;
end;
__________________
Любая действущая программа устарела.
Создайте систему, которой сможет пользоваться даже дурак ,и только дурак захочет ею пользоваться.
Как правильно задавать вопросы: _http://www.yakimchuk.ru/questions.htm
|
|
|