Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1989
1609
uses crt;
var a,b: array [1..100] of integer;
i,j,n,m: integer;
begin
clrscr;
readln(n);
for i:=1 to n do
read(a[i]);
j:=1;
for i:=2 to n do
begin
if a[i-1]<=a[i] then b[j]:=b[j]+1;
if a[i-1]>a[i] then
begin
inc(j);
inc(b[j]);
end;
end;
m:=b[1];
for i:=2 to j do
if b[i-1]<b[i] then m:=b[i];
writeln (m);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1503
740
var A,C:array [1..100] of integer;
n,i,j,x:integer;
begin
read(n); j:=1;
for i:=1 to n do read(A[i]);
for i:=2 to n do
begin
if A[i-1]<=A[i] then C[j]:=C[j]+1;
if A[i-1]>A[i] then
begin
j:=j+1;
C[j]:=C[j]+1;
end;
end;
x:=C[1];
for i:=1 to j do if C[i-1]<C[i] then x:=C[i];
write(x);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
4765
103467
4243
kick tolanhat01 đi
1989
517
1609
no :)
1989
517
1609
ko thể kick đc .-.
1989
517
1609
never
4765
103467
4243
sao
1989
517
1609
nó là ân nhân cứu cái acc này ;-;
4765
103467
4243
là sao
1989
517
1609
thoi hong bt đâu :)