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.
uses crt;
const fo='de22.out';
var f1:text;
st:string;
begin
clrscr;
readln(st);
assign(f1,fo); rewrite(f1);
writeln(f1,st);
close(f1);
end.
Program HOC24;
var i,n: integer;
c: array[1..1000] of integer;
f: text;
begin
assign(f,'MANG3.TXT');
reset(f);
readln(f,n);
for i:=1 to n do read(f,c[i]);
close(f);
for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');
readln
end.
var n,i,dem,t:integer;
a:array[1..50] of integer;
begin
dem:=0;
t:=0;
read(n);
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i]);
writeln;
for i:=1 to n do
if (a[i] mod 2 = 0) then dem:=dem+1;
if a[i]<a[i-1] then t:=t+1;
writeln(dem);
if t=0 then write('Co lap thanh cap so +')
else write('Ko the lap thanh cap so +');
readln;
end.
uses crt;
var i,n,s: integer;
a:array[1..100] of integer;
begin
writeln('Nhap n: '); read(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
writeln('Cac so le: ')
s:=0;
for i:=1 to n do
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
write(a[i],' ');
end;
writeln('- Tong so le: ',s);
for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;
if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');
readln
end.
cau 1:
uses crt;
var a:array[1..100] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if min>a[i] then min=a[i];
writeln(a[i]);
readln;
end.
cau 2:
uses crt;
g:text;
s:string;
const fo='CHUSO.TXT';
begin
assign(g,fo);
rewrite(g);
readln(s);
for i:=1 to length(s) do
if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);
writeln(g,s);
end.
uses crt;
var a,b:array[1..100]of integer;
n,i,t,k,vt,kt,dem,j,dem1,dem2,tam:integer;
tbc:real;
begin
clrscr;
write('nhap so phan tu:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------------------------------}
for i:=1 to n do write(a[i],' ');
{-----------tinh-tong---------------------}
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('tong tat ca cac phan tu la: ',t);
{-----------tb-cong------------------------}
writeln;
tbc:=t/n;
writeln('trung binh cong cua day so la: ',tbc:4:2);
{-----------kiem-tra-k----------------}
writeln;
write('k='); readln(k);
dem:=0;
kt:=0;
for i:=1 to n do
if a[i]=k then
begin
kt:=1;
vt:=i;
begin
dem:=dem+1;
b[dem]:=i;
end;
end;
if kt=0 then writeln(k,' khong co trong day')
else
begin
write(k,' co trong day o cac vi tri thu ');
for j:=1 to dem do
write(b[j]:4);
end;
{---------------------kiem-tra-am-duong--------------------}
dem1:=0; dem2:=0;
for i:=1 to n do
begin
if a[i]>0 then inc(dem1);
if a[i]<0 then inc(dem2);
end;
writeln;
writeln('so luong so duong trong day la: ',dem1);
writeln('so luong so am trong day la: ',dem2);
{--------------------sap-xep-tang-dan-------------------}
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 duoc sap xep tang dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.