program sapxep;
uses crt; {Gọi thư viện CRT}
var a:array[1..4] of integer; {Tạo 1 mảng A với 4 phần tử}
i,j,tam: integer;
Begin
clrscr; {Xoá màn hình}
for i:=1 to 4 do
begin
write('Nhap Gia Tri Thu ',i,': ');
READLN(A[i]);
END;
WRITE('Cac Gia Tri Mang A: '); {Liệt kê lại các số bạn vừa nhập trong mảng}
for i:=1 to 4 do
write(A[i]:4);
readln;
&n
...
Xem Tiếp »
|
|
