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

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

 
Nhúng Facebook photo vào Drupal

Nhúng Facebook photo vào Drupal

Nếu đã sử dụng Facebook, ắc hẳn bạn sẽ biết rằng Facebook cho phép người dùng upload không hạn chế hình ảnh, album.

China Suarez và Wanda Nara từng xem nhau như chị em trong nhà

China Suarez và Wanda Nara từng xem nhau như chị em trong nhà

Cận cảnh nhan sắc 'con giáp thứ 13' khiến gia đình sao PSG 'tan đàn xẻ nghé'. Từ trái sang phải: Mauro Icardi, China Suarez và Wanda Nara.

Ý tưởng Lumia Smartwatch từ đồng hồ truyền thống

Ý tưởng Lumia Smartwatch từ đồng hồ truyền thống

Trang Blog của Nokia vừa đăng tải đoạn video giới thiệu mẫu concept mới của chiếc Nokia Smartwatch do nhà thiết kế Omar Pirela thực hiện lấy cảm hứng từ những chiếc đồng hồ truyền thống.

Tomdesgin.vn

 

Drupal Services