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.
var n,i,j,d:longint;
s,t:double;
a:array[1..1000] of double;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]>=0) then d:=d+1
else s:=s+a[i];
for i:=1 to n do
for j:=i+1 to n do
if (a[i]>a[j]) then begin t:=a[i];
a[i]:=a[j];
a[j]:=t; end;
writeln(d);
for i:=1 to n do
write(a[i]:5:2,' ');
writeln;
write(s:5:2);
end.
uses crt;
var a:array[1..50]of real;
i,n,dem,j:integer;
tam,t:real;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------cau-a--------------------------------}
dem:=0;
for i:=1 to n do
if a[i]>0 then inc(dem);
writeln('so phan tu duong cua day la: ',dem);
{-----------------------------cau-b---------------------------------}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('day tang dan cua mang la: ');
for i:=1 to n do
write(a[i]:4:2,' ');
{-----------------------------cau-c-----------------------------------}
writeln;
t:=0;
for i:=1 to n do
if a[i]<0 then t:=t+a[i];
writeln('tong cac phan tu am trong day la: ',t:4:2);
readln;
end.
uses crt;
var a:array[1..50]of integer;
i,n,t,t1:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=50);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=100;
end;
t:=0;
t1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then t:=t+a[i]
else t1:=t1+a[i];
end;
writeln('Tong cac so chan la: ',t);
writeln('Tong cac so le la: ',t1);
readln;
end.
Bài 1:
uses crt;
var a:array[1..1000]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 2<>0) then
begin
inc(dem);
t:=t+a[i];
end;
writeln(t/dem:4:2);
readln;
end.
Bài 2:
uses crt;
var s:string;
i,d:integer;
kt:boolean;
begin
clrscr;
write('Nhap xau:'); readln(s);
d:=length(s);
for i:=1 to d do
if s[i]=' ' then delete(s,i,1);
s:=upcase(s);
writeln(s);
readln;
end.
bprogram min
uses crt
var A: array [1...250] of integer
tong :integer;
begin
tong:=0
writeln(‘nhap n:’); readln (n)
forr i:=1 to n do
begin
writeln (‘nhap phan tu thu ‘,i);
readln (A[i] );
end
for i:=1 to n do
begin
if (A[i] mod 3=0)
then tong:=tong +A[i];
end
writeln (Tong cac phan tu chia het cho 3)
readln ;
end
a)
Type mang=array[1..100]of integer;
procedure nhap(var a:mang);
var n,i:integer;
begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
end;
b) procedure xuat(var a:mang);
var i,n:integer;
begin
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
end;
#include <iostream>
#include <fstream>
int main()
{
std::ifstream f("daycon.inp");
int n,s,a[1001],d[100][1001];
f>>n>>s;
for(int i=1;i<=n;i++)
{
f>>a[i];
}
d[0][0]=0;
a[0]=0;
d[1][a[1]]=1;
for(int i=2;i<=n;i++)
{
for(int j=0;j<=s;j++)
{
d[i][j]=d[i-1][j];
if(j==a[i]&&d[i-1][j]<1)
d[i][j]=1;
else
if(a[i]<j&&d[i-1][j-a[i]]>0&&d[i-1][j-a[i]]+1>d[i][j])
d[i][j]=d[i-1][j-a[i]]+1;
}
}
for(int i=n;i>=1;i--)
{
if(d[i][s]!=d[i-1][s])
{
std::cout<<a[i]<<" ";
s-=a[i];
}
}
return 0;
}
Câu 1:
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau ki tu:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]='H' then inc(dem);
writeln('Trong xau co ',dem,' ki tu H');
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of longint;
n,i,t,kt,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
Until (0<n) and (n<=100);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (0<a[i]) and (a[i]<60000);
end;
{-----------------------------cau-a-------------------------}
Writeln('Nhung so chan trong day la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
Writeln;
{------------------------cau-b----------------------------}
t:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then t:=t+a[i];
end;
Writeln('Tong cac so nguyen to co trong day la: ',t);
readln;
end.
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
how to chạy nhanh
Là dãy con tăng, nhưng các phần tử ko cần phải liền nhau nhưng phải đúng thứ tự
VD: 9 3 6 4 7 2 8 => Có dãy tăng là 3 6 7 8
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.