K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
25 tháng 6 2021
uses crt;
var st,s1,s2:string;
i,max,x,y,d1,d2:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
s1:=#32;
for i:=1 to length(st) do
if st[i] in ['a'..'z'] then s1:=s1+st[i];
d1:=length(s1);
for i:=1 to d1 do
s1[i]:=upcase(s1[i]);
writeln('Xau ky tu da chuyen sang hoa la: ',s1);
s2:=#32;
for i:=1 to length(st) do
if st[i] in ['0'..'9'] then s2:=s2+st[i];
write('Day so dao nguoc la: ');
d2:=length(s2);
for i:=d2 downto 1 do
write(s2[i]);
writeln;
max:=0;
for i:=1 to d2 do
begin
val(s2[i],x,y);
if max<x then max:=x;
end;
writeln('Chu so lon nhat la: ',max);
readln;
end.
HR
1
H
1
25 tháng 6 2021
uses crt;
var a:array[1..1000]of integer;
n,i,k,min,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n=0 then writeln('Moi ban nhap lai')
else begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
min:=a[1];
vt:=1;
for i:=1 to n do
if min>a[i] then
begin
min:=a[i];
vt:=i;
end;
writeln('So nho nhat la: ',min,' tai vi tri: ',vt);
write('Nhap k='); readln(k);
for i:=1 to n do
if i<>k then write(a[i]:4);
end;
readln;
end.
I
1
chỉ vẽ thôi mà có j khó dou
:)