... ((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); writeln('So luong so hang dan dau nhieu nhat la:',max); readln; 3 END. ... m:integer; BEGIN Clrscr; Write('So phan tu cua day so la N=');readln(N); Writeln('Nhap cac phan tu cua day so'); F...
Ngày tải lên: 04/12/2013, 11:11