In ra màn hình thông báo dãy đan dấu hoặc dãy không đan dấu

In ra màn hình thông báo dãy đan dấu hoặc dãy không đan dấu

Viết chương trình nhập vào mảng A gồm N phần tử. In ra màn hình thông báo dãy đan dấu hoặc dãy không đan dấu

Bài giải pascal phía dưới

uses crt;

 var a:array[1..100] of longint;

 i,n,sl,j,max:longint;

 BEGIN

 clrscr;

 write('Vao n=');readln(n);

 for i:=1 to n do

    begin

             write('a[',i,']=');

             readln(a[i]);

    end;

i:=1; max:=0;

While i<=n-1 do

if a[i]*a[i+1]<0 then

     begin

     sl:=1;j:=i;

        while ((j+1<=n)and(a[j]*a[j+1]<0)) do

                   begin

                    inc(sl);

                     inc(j)

                    end;

                     if sl>max then max:=sl;

      inc(i,sl); { quay ve de xet tiep cac doan con lai}

     end

Else inc(i);

if max = 0 then  writeln('khong dan dau');

if max <> 0 then  writeln('co dan dau');

readln;

END.

Hình minh họa để tưởng tượng

Hình minh họa để tưởng tượng

Bạn thấy bài viết này như thế nào?: 
Average: 10 (1 vote)
Ảnh của Tommy Tran

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy

Bình luận (0)

 

Add Comment

Filtered HTML

  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Các thẻ HTML được chấp nhận: <a> <em> <strong> <cite> <blockquote> <code> <ul> <ol> <li> <dl> <dt> <dd>
  • Tự động ngắt dòng và đoạn văn.

Plain text

  • No HTML tags allowed.
  • Các địa chỉ web và email sẽ tự động được chuyển sang dạng liên kết.
  • Tự động ngắt dòng và đoạn văn.
CAPTCHA
This question is for testing whether or not you are a human visitor and to prevent automated spam submissions.
Image CAPTCHA
Enter the characters shown in the image.

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Kích hoạt Timeline cho Facebook - Đi là không trở lại

Kích hoạt Timeline cho Facebook - Đi là không trở lại

Facebook đã chính thức cung cấp giao diện Timeline cho người dùng trên mọi trình duyệt, từ máy tính cho đến thiết bị di động nền Android.

Nhiều công ty Ấn Độ đã bắt tay vào việc sản xuất vaccine COVID-19

Một loại vaccine chữa căn bệnh thế kỷ HIV có thể ra mắt năm 2021

Đại dịch HIV có thể sắp bị đẩy lùi khi loại vaccine phòng virus gây căn bệnh thế kỷ đầu tiên có thể được ra mắt sớm nhất trong năm 2021.

Bán con bò nào ngân hàng siết nợ luôn thì làm sao sống nổi

Bán con bò nào ngân hàng siết nợ luôn thì làm sao sống nổi

Được biết, sau khi bàn bạc nhiều phương án và đi đến quyết định cuối cùng, tại ĐHĐCĐ bất thường diễn ra vào ngày 8/1/2021

Công ty diệt chuột T&C

 

Diet con trung