Đây là bài làm của em.

uses crt;
var  f1,f2:text;
      a,b,c: array[1..100] of integer;
      i,j,count,n,k,maxnum,maxpos:integer;
procedure input;
     begin
     assign(f1,'d:\data.in'); reset(f1);
     assign(f2,'d:\data.out'); rewrite(f2);
     i:=1;
     while not(eof(F1)) do
         begin
         read(f1,a[i]);
         i:=i+1;
         end;
      n:=i-1;
     end;
procedure analyze;
     begin
       for i:=1 to n do
          begin
          k:=i;
          count:=1;
          while  (a[k+1]>=a[k]) and (k+1<n) do
                begin
                count:=count+1;
                k:=k+1; 
                end;
          b[i]:=count;
      end;
      maxnum:=b[1];
      maxpos:=1;
      for i:=2 to n do
         if b[i]>maxnum then
            begin  
            maxnum:=b[i];
            maxpos:=i;
            end;
      end;
procedure output;
     begin
     for i:=maxpos to maxpos+maxnum-1 do write(f2,a[i],' ');
     close(f2);
     end;
begin
    input;  
    analyze;
    output;
end.

Giải thuật

- input: dữ liệu từ file data.in nhập vào mảng a; đếm số phần tử gán biến n;

-anlyze: xử lí:

   +Chạy lần lượt từ giá trị đầu mảng a đến n xét xem nếu phần tử đứng sau lớn hơn phần tử đứng trước thì đếm bằng biến count; rồi gán giá trị đếm count tương ứng vào mảng b;

   + Tìm giá trị lớn nhất trong mảng b(maxnum) và vị trí tương ứng (maxpos);

- output:ghi file bắt đầu ghi maxnum-1 giá trị từ vị trí đầu maxpos.

Thông báo: Vừa khai trương vài mục dành cho Học sinh