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.

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

 
Điện thoại chạy Windows Phone của Sony sẽ mang thương hiệu Vaio

Điện thoại chạy Windows Phone của Sony sẽ mang thương hiệu Vaio

Khả năng cạnh tranh của dòng điện thoại chạy Windows Phone với các nền tảng khác sẽ được củng cố khi có sự xuất hiện của Sony - một nhà sản xuất uy tín.

Window, Window 7, Mac iOS 6, Mac OS, MacBook Air, MacBook Pro

Hướng dẫn thiết lập mạng riêng ảo (VPN) của riêng bạn trên Windows và Mac

Mạng riêng ảo (hay Virtual Private Network) là một mạng thường dành riêng để kết nối các máy tính trong nhà hay trong một tổ chức với nhau thông qua Internet

Ngày 4 - học về cơ bản về kiến trúc Big Data

Ngày 4 - học về cơ bản về kiến trúc Big Data

Hình ảnh trên cho chúng ta cái nhìn tổng quan tốt về cách các thành phần khác nhau trong kiến trúc big data tương tác lẫn nhau.

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

 

Diet con trung