Admin Admin
Tổng số bài gửi : 25 Điểm học tập : 4181 Được Cảm Ơn : 0 Join date : 23/02/2013 Age : 24 Đến từ : TPHCM
| Tiêu đề: Đảo ngược mảng 1 chiều Wed Jun 19, 2013 1:45 pm | |
| - Code:
-
VAR a:ARRAY[1..100] OF INTEGER; n,i:INTEGER; BEGIN write('Do dai cua mang can nhap?');readln(n); FOR i:=1 TO n DO BEGIN write('Phan tu thu ',i,'=?');readln(a[i]) END; writeln('Mang dao nguoc la :'); FOR i:=n DOWNTO 1 DO write(a[i]:5); Readln; END. | |
|