À, contest kéo dài 5 ngày, vậy chắc ko sao

Sợ kéo dài cỡ 2-3 tiếng thì nát vì có đến 4 Codeforce Rounds trong mấy ngày thi

Lâu rồi mới thấy bài về Tree, chưa học gì về Tree nhiều (oof)

Cho cỡ 2,3 ngày đê (mà chắc cũng hết tg rồi, tận 1 tháng rồi mà)

Chắc muộn rồi nhưng code(dùng QHĐ):

uses crt,math;
var a:array[0..100000] of Integer;
    f:array[0..100000] of Integer;
    point:array[0..100000] of Integer;
    i,n,j,maxn,maxloc:integer;
    f1:text;
Procedure truyvet(vt:integer);
begin
    if vt<>0 then truyvet(point[vt])
    else exit();
    write(a[vt],' ');
end;
Begin
    clrscr;
    assign(f1,'daycontang.inp'); reset(f1);
    readln(f1,n);
    for i:=1 to n do read(f1,a[i]);
    a[0]:=-1; f[0]:=0;
    for i:=1 to n do
        begin
            for j:=i-1 downto 0 do
                if (a[i]>a[j]) and (f[j]<>0) then
                   begin
                       if f[i]<f[j] then point[i]:=j;
                       f[i]:=max(f[i],f[j]);
                   end;
            f[i]:=f[i]+1;
            if maxn<f[i] then
               begin
                   maxn:=f[i];
                   maxloc:=i;
               end;
        end;
    writeln(maxn);
    truyvet(n);
    readln;
End.

Là dãy con tăng, nhưng các phần tử ko cần phải liền nhau nhưng phải đúng thứ tự

VD: 9 3 6 4 7 2 8 => Có dãy tăng là 3 6 7 8

Lâu rồi ko lên hoc24, vừa lên thấy bài hay ngay mới hay chứ

Thuật toán:

t=1 thì ko nói rồi do dễ quá

Khi t=2 thì ta có 2 biến dem0 và dem1 để giữ số các số 0 và 1

Nếu dem1<vt cần tìm thì số đó ko thể là số 1=>writeln(0)

Ngược lại thì số đó là 1=>writeln(1)

Code:

Program kth;
uses crt;
var n,i,t,x,q,dem1,dem0:integer;
    a:array[1..100000] of Byte;
    f1,f2:text;
Begin
    clrscr;
    assign(f1,'kth.inp'); reset(f1);
    assign(f2,'kth.out'); rewrite(f2);
    read(f1,n,q);
    for i:=1 to n do
        begin
            read(f1,a[i]);
            dem1:=dem1+ord(a[i]=1);
            dem0:=dem0+ord(a[i]=0);
        end;
    for i:=1 to q do
        begin
            read(f1,t,x);
            case t of
                 1:begin
                       if a[x]=1 then
                          begin
                              dec(dem1); inc(dem0);
                          end
                       else
                          begin
                              inc(dem1); dec(dem0);
                          end;
                       a[x]:=1-a[x];
                   end;
                 2:writeln(f2,1*ord(dem1>=x)+0*ord(dem1<x));
            end;
        end;
    Close(f1);
    close(f2);
End.

*Note:ord(bool) giống như khi làm trong C++,tức:

-Khi bool=true thì ra 1

-Khi bool=false thì ra 0

Bạn ơi, Pascal ko hỗ trợ di chuyển bằng chuột máy tính(trừ khi dùng Graph, nhưng mình đoán 99% các mod trên đây ko ai biết dùng Graph đâu)

Nếu dùng WASD thì có thể, nhưng nếu vậy thì bài này nên đưa lên bài lớp 11 thì hơn

2013 đấy bạn

Câu 1:tính tổng

a) - 1 + 3 - 5 + 7 - . . . + 97 - 99

= - 1 + 3 + (-5) +7 + . . .  + 97 + (-99)

=[ - 1 + 3 ] + [ - 5 + 7]  + . . . + [-95 + 97] +-99

=2+2+... +2 +(-99)

=2.49 +(-99)

=98+(-99)

=(-1)

3.2 dung 10000000%