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.
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.
By Charlie
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.
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.