Cho em hỏi đang sai chỗ nào vậy ạ? Và cách sữa lỗi.
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.
27 tháng 1 2021
uses crt;
var a:array[1..100]of integer;
i,n,j,tam:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
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 so xep giam dan la: ');
for i:=1 to n do write(a[i]:4);
readln;
end.
9 tháng 2 2021
uses crt;
var a:array[1..5]of integer;
i,n,x:integer;
kt,kt1:boolean;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (1<=n) and (n<=5);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until (-100<=a[i]) and (a[i]<=100);
end;
kt:=true;
x:=abs(a[2]-a[1]);
for i:=2 to n do
if x<>abs(a[i]-a[i-1]) then
begin
kt:=false;
break;
end;
if kt=true then writeln('Day la day cap so cong')
else writeln('Day khong la day cap so cong');
kt1:=true;
for i:=1 to n do
if ((a[i]>0) and (a[i+1]>0)) or ((a[i]<0) and (a[i+1]<0)) then
begin
kt1:=false;
break;
end;
if kt1=true then writeln('Mang A co doi sanh voi nhau')
else writeln('Mang A khong doi sanh voi nhau');
readln;
end.
27 tháng 1 2021
uses crt;
var a,vt:array[1..250]of integer;
i,n,max,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=250);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=500;
end;
max:=a[1];
dem:=0;
for i:=1 to n do
if max<a[i] then max:=a[i];
for i:=1 to n do
if max=a[i] then
begin
inc(dem);
vt[dem]:=i;
end;
writeln('Gia tri lon nhat la: ',max);
write('Vi tri: ');
for i:=1 to dem do
write(vt[i]:4);
readln;
end.
NH
0
27 tháng 1 2021
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,kt,max,x,j,tam:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Mang ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
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 la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Nhap x='); readln(x);
max:=0;
kt:=0;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i]<=x) then
begin
if max<a[i] then max:=a[i];
kt:=1;
end;
if kt=0 then writeln('Trong day khong co so le')
else writeln('So chan lon nhat khong vuot qua ',x,' la: ',max);
readln;
end.
NT
2
B
26 tháng 1 2021
program bt;
var a:array[1..1000] : integer;
i,n,t:integer;
beginwrite('nhap so phan tu cua mang');
readln(n);for i:=1 to n do
begin
write('phan tu thu ',i,' : ');
readln(a[i]);
end;for i:=1 to n dot:= t + a[i]
write('tong cac phan tu trong mang la :',t);
readln
end
*thử lại xem có đúng ko nhe !
26 tháng 1 2021
uses crt;
var st,st1,st2:string;
i,d,dem,kt,j,x:integer;
a,b:array[1..255]of integer;
begin
clrscr;
write('Nhap chuoi:'); readln(st);
st1:='';
st2:='';
d:=length(st);
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then st1:=st1+st[i]
else if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then st2:=st2+st[i];
end;
for i:=1 to length(st1) do
val(st1[i],a[i],x);
b[1]:=a[1];
dem:=1;
for i:=1 to length(st1) do
begin
kt:=0;
for j:=1 to dem do
if a[i]=b[j] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
writeln('Cac so co trong day la: ');
for i:=1 to dem do
write(b[i]:4);
writeln;
writeln('Cac chu co trong day la:');
for i:=1 to length(st2) do
write(st2[i]:4);
readln;
end.
đặt lại tên đã lưu đi nhé