Mọi người giúp mình bài này với. Nhập vào dãy số nguyên n phần từ, đưa ra màn hình số lượng số hạng dương liên tiếp nhiều nhất trong dãy.

0 bình luận về “Mọi người giúp mình bài này với. Nhập vào dãy số nguyên n phần từ, đưa ra màn hình số lượng số hạng dương liên tiếp nhiều nhất trong dãy.”

1. uses crt;
   var n,i,j,m:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            j:=i;
            while a[j]>0 do dec(j);
            if i-j>m then m:=i-j;
         end;
      writeln(m);
   readln
   end.

   Bình luận

2. Program duonglt;

   uses crt;
   var n,i,j,m:integer;

   a:array[1..100] of intgẻ;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      for i:=1 to n do
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            j:=i;
            while a[j]>0 do dec(j);
            if i-j>m then m:=i-j;
         end;
      writeln(m);
   readln
   end.

   Bình luận