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

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

 
OPPO Find 7 và những thông số dự kiến sắp tới

OPPO Find 7 và những thông số dự kiến sắp tới

Những thông số kỹ thuật của chiếc Find 7 sắp tới đang thu hút sự quan tâm đặc biệt của làng công nghệ.

người mẹ tốt hơn là người thầy tốt

Người mẹ tốt hơn là người Thầy tốt - cuốn sách hay cần đọc trong thời hiện đại.

Người Mẹ Tốt Hơn Là Người Thầy Tốt là cuốn sách đã đặt ra vấn đề muôn thuở với các vị phụ huynh, đó là giáo dục con cái.

Web Developer

10 bước để trở thành Web Developer giỏi

For those of us who are already web developers it may seem obvious but when you just getting started and don’t know what to do, it is nice to have guide where to start.

Tomdesgin.vn

 

Drupal Services