Lệ
Tổng số bài gửi : 16 Join date : 06/12/2022
| Tiêu đề: bai8.pascal Fri Dec 16, 2022 7:50 pm | |
| uses math; var i,n,tam:longint; a:array [1..1000] of longint; begin assign(input,'bai8.inp'); reset(input); assign(output,'bai8.out'); rewrite(output); read(n); for i:=1 to n do read(a[i]); 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],#32); close(input); close(output); end. - Code:
-
| |
|