ХОРА ПОМОГНЕТЕ!!!

ИМАМАМ МАЛКА ЗАДАЧКА КОЯТО НЕ МОГА ДА РЕША МОЛЯ ПОМОГНЕТЕ!!!

ДАДЕН Е МАСИВ С N ЧИСЛА, КАТО ЗА НЯКОИ ОТ ЕЛЕМЕНТИТЕ Е ИЗПЪЛНЕНО
СЛЕДНОТО:
Аi<=Ai+1<=Ai+2<=......
ДА СЕ НАМЕРИ ДАЛЖИНАТА НА НАЙ-ДАЛГАТА ПОРЕДИЦА ОТ НЕНАМАЛЯВАЩИ
СТОЙНОСТИ НА МАСИВА.


АКО НЯКОИ МОЖЕ ДА Я РЕШИ ДА МИ Я НАПИШЕ НА PASCAL.
MERSI PREDVARITELNO.

na "prima vista":

var
mstart:integer;
mlen:integer;
cstart:integer;
clen:integer;
A:array[1..100] of integer;
x:integer;
begin
{input A }
mstart=1;mlen=1;cstart=1;clen=1;
for x:=2 to 100 do begin
if (a[x]>=a[x-1]) then begin
inc(clen);
end else begin
if clen>mlen then begin
mlen:=clen;
mstart:cstart;
end;
cstart:=x;clen:=1;
end;
end;
{output mstart, mlen}
end.

p.s. twa go pisah direktno - bez probi moje i da ima sintaktichni kakto i greshki w logikata

------------------------------
I got a COMPILER, and I'm not afraid to use it!

уползотворим тази тема.

Искам да обърна внимание на това какво се вижда от кода на СДР. Явно липсва [ pre ][ /pre ]. Дайте да свикнем да го ползваме, че да е по-четим кода, който пост-ваме.


ПП
Syntax error
10: mstart=1;mlen=1;cstart=1;clen=1;
17: mstart:cstart;

СДР, ти добре си направил услуга на човека, но мислиш ли, че ще се справи с оправянето на евентуалните грешки

peace

by Waz Gaa
[email protected]

Bqh razdwoen mejdu reshenieto i sletobednoto kafe a i koda pisah direktno w explorera t.e. pak malko greshki sam naprawil

inache za [ pre ] - mi w sluchaq ne mu wijdam ideqta to kato nqma tabowe i se obezsmislq ... a az za index izpolzwam x,y,xx i prochie taka che problema s [ i ] go nqma pri mene

btw izobshto ne misleh da reshawam zadachata na choweka ma si wikam ajde da mu pusna ideqta pa toj ako moje da se opraq na tatak....

------------------------------
I got a COMPILER, and I'm not afraid to use it!