đảo ngược các số nguyên trong mảng ví dụ 45 43 22 -123 02 in ra 53 34 22 -321
1 câu trả lời
uses crt;
var i,n:longint; a:array[1..10000]of longint;
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
begin
if a[i]<0 then write('-'); a[i]:=abs(a[i]);
repeat
write(a[i] mod 10);
a[i]:=a[i] div 10;
until a[i]=0;
write(' ');
end;
readln
end.
