program baitap;
uses crt;
const n=4 ;
Var A:array[1..n] of integer ;
i,max,vitri,tam,j:integer;
begin
clrscr;
for i:=1 to n do
begin
write('Nhap Gia Tri: ');
readln(A[i]);
end;
Write('Cac Gia Tri Ban Vua Nhap La ');
For i:=1 to n do
begin
Write(A[I]:4);
end;
max:=A[1];
...
Xem Tiếp »
|
|
