lập trình nhập từ bàn phím dãy n số (1 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " lập trình nhập từ bàn phím dãy n số (1
0 bình luận về “lập trình nhập từ bàn phím dãy n số (1<n<50) rồi xếp lại dãy số đó theo nguyên tắc A1 đổi chỗ với An, A2 đổi chỗ với An-1, A3 với An-2,... Đưa ra kết”
Tuy hơi dài nhưng câu nào ra câu nấy, rất dễ hiểu nha!
uses crt; var n,i:byte; a:array[1..50] of integer; tam:integer; BEGIN clrscr; write(‘Nhap n:’); readln(n); for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]); end; for i:=1 to n div 2 do begin tam:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=tam; end; for i:=1 to n do write(a[i],’ ‘); readln END.
Tuy hơi dài nhưng câu nào ra câu nấy, rất dễ hiểu nha!
program hoandoi;
uses crt;
var A:array[1..50] of integer;
n,i,tg:integer;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);
for i:=1 to n do
begin
write(‘A[‘,i,’] = ‘);
readln(A[i]);
end;
for i:=1 to n div 2 do
begin
tg:=A[i];
A[i]:=A[n-i+1];
A[n-i+1]:=tg;
end;
write(‘Day sau khi hoan doi la: ‘);
for i:=1 to n do
write(A[i],’ ‘);
readln
end.
Cho mình ctlhn nha
uses crt;
var n,i:byte;
a:array[1..50] of integer;
tam:integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]=’);
readln(a[i]);
end;
for i:=1 to n div 2 do
begin
tam:=a[i];
a[i]:=a[n-i+1];
a[n-i+1]:=tam;
end;
for i:=1 to n do
write(a[i],’ ‘);
readln
END.
Cho mik ctlhn nha.