Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
tăng liên tiếp thì được, chứ tăng không liên tiếp là cái gì? mình không hiểu lắm
Chắc muộn rồi nhưng code(dùng QHĐ):
uses crt,math;
var a:array[0..100000] of Integer;
f:array[0..100000] of Integer;
point:array[0..100000] of Integer;
i,n,j,maxn,maxloc:integer;
f1:text;
Procedure truyvet(vt:integer);
begin
if vt<>0 then truyvet(point[vt])
else exit();
write(a[vt],' ');
end;
Begin
clrscr;
assign(f1,'daycontang.inp'); reset(f1);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
a[0]:=-1; f[0]:=0;
for i:=1 to n do
begin
for j:=i-1 downto 0 do
if (a[i]>a[j]) and (f[j]<>0) then
begin
if f[i]<f[j] then point[i]:=j;
f[i]:=max(f[i],f[j]);
end;
f[i]:=f[i]+1;
if maxn<f[i] then
begin
maxn:=f[i];
maxloc:=i;
end;
end;
writeln(maxn);
truyvet(n);
readln;
End.
Bài 2:
Program HOC24;
var a: array[1..250] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu cua day : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] 0 then t:=t+a[i];
write('Tong cac phan tu khong am trong mang nguyen la ',t);
readln
end.
Bài 1:
Program HOC24;
var a: array[1..100] of integer;
i,n,d: integer;
begin
write('Nhap so phan tu cua day : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
d:=0;
for i:=1 to n do
if a[i] mod 3<>0 then inc(d);
write('Co ',d,' phan tu khong chia het cho 3 trong mang');
readln
end.
Program HOC24;
var a: array[1..100] of integer;
i,n,d: integer;
t: longint;
begin
write('Nhap so phan tu n='); readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i]>0 then
begin
d:=d+1;
t:=t+a[i];
end;
end;
write('Trung binh cong cac so duong trong mang la :',t/d:1:2);
readln
end.
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3<>0 then inc(dem);
writeln('So phan tu khong chia het cho 3 trong day la: ',dem);
readln;
end.
Bài 2:
uses crt;
var a:array[1..250]of integer;
i,n,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i]>=0 then t:=t+a[i];
writeln('Tong cac phan tu khong am trong day la: ',t);
readln;
end.
Sữa lỗi:
phần khai báo:a:array[1..250] of integer (ngoặc vuông ko phải ngoặc tròn)
? j thế