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
VD: 1 2 3 4 9 5 6 7
Vậy dãy con tăng không liên tiếp là 1 2 3 4 5 6 7 (bỏ số 9)
Hình như bài này dùng cái thuật toán quy hoạch động của lớp 9 là ra
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ế