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 quả
2 câu trả lời
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.
