codeturbopascal
Admin
 Tổng số bài gửi : 22
Danh vọng : 64 Được thank : 7
Ngày Tham gia : 19/04/2013
Tuổi : 27
Đến từ : Quảng trị
Thú Cưng : 
 |  Tiêu đề: Tính tổng chỉ sổ cột hàng chẵn trong mảng 2 chiều Sun Apr 21, 2013 2:13 pm | |
| - Code:
-
Var a:array[1..100,1..100] of integer;
i,j,m,n:integer;
Begin
Write('Nhap so hang va cot');readln(m,n);
For i:=1 to m do
For j:=1 to n do
begin
write('A[',i,',',j,']=');readln(a[i,j]);
end;
i:=2;j:=1;
While i<=m do
begin
While j<=n do
begin
write('A[',i',',j,']='a[i,j],' '); j:=j+2;
end;
i:=i+2;
end;
Readln;
End.
| |
|
