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 Tran 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
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: [email protected]
  • Telegram Messenger: https:/t.me/tommytran0401

Bình luận (0)

 

Add Comment

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.
2 + 2 =
Solve this simple math problem and enter the result. E.g. for 1+3, enter 4.

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

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

 
Rò rỉ thông số kĩ thuật của máy ảnh Sony Cyber-shot RX100 MkII

Rò rỉ thông số kĩ thuật của máy ảnh Sony Cyber-shot RX100 MkII

Sau khi tung ra Cyber-shot RX100 cách đây không lâu, có vẻ như Sony muốn tiếp tục gây ấn tượng với người dùng với kế hoạch phát hành Cyber-shot RX100 MkII.

Lựa chọn mã nguồn tốt nhất cho website

Doanh nghiệp lựa chọn mã nguồn tốt nhất cho website

Bài viết trước, chúng tôi đã giới thiệu về cách chọn một CMS tốt để phát triển website của bạn. Ở phần tiếp theo này, chúng tôi sẽ cung cấp tiếp những chức năng cần thiết mà một CMS tốt cho SEO cần phải có.

Aaron Winborn là ai? giới thiệu Aaron Winborn Community Spotlight

Aaron Winborn là ai? giới thiệu Aaron Winborn Community Spotlight

If you have been around the Drupal community for a while you know who Aaron Winborn is.

BLOG POSTS

 

Wordpress Freelancer

 

Wordpress Freelancer