(¯`·.(¯`·.(¯`·.♥ღ TRƯỜNG THPT MINH ĐÀI ღ♥.·´¯).·´¯).·´¯)

Giao lưu - Học hỏi
 
Trang ChínhTrang Chính  PortalPortal  CalendarCalendar  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Thành viênThành viên  NhómNhóm  Đăng kýĐăng ký  Đăng Nhập  

Share | 
 

 Bài tập Pascal - tính tổng các phần tử của mảng 2 chiều

Go down 
Tác giảThông điệp
Admin
Admin
avatar

Tổng số bài gửi : 46
Join date : 22/12/2010
Age : 30
Đến từ : Văn Luông

Bài gửiTiêu đề: Bài tập Pascal - tính tổng các phần tử của mảng 2 chiều   Fri Feb 25, 2011 11:45 am

program tinh_tong;
uses crt;
var a:array[1..50,1..50] of integer;
i,j,m,n,t:integer;
BEGIN
write(' nhap so hang m= '); readln(m);
write(' nhap so cot n= '); readln(n);
t:=0;
for i:=1 to m do
for j:=1 to n do
Begin
write(' phan tu a[',i,',',j,]= '); readln(a[i,j]);
t:=t+a[i,j];
End;
writeln('tong can tinh la: ',t:4);
readln;
END.

(¯`·.(¯`·.(¯`·.♥ THPT MINH ĐÀI ♥.·´¯).·´¯).·´¯)
Về Đầu Trang Go down
Xem lý lịch thành viên http://minhdai.forumvi.com
 
Bài tập Pascal - tính tổng các phần tử của mảng 2 chiều
Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
(¯`·.(¯`·.(¯`·.♥ღ TRƯỜNG THPT MINH ĐÀI ღ♥.·´¯).·´¯).·´¯) :: (¯`·.(¯`·.(¯`·.♥ღGóc Học Tậpღ♥.·´¯).·´¯).·´¯) :: -‘๑’- Các Môn Học -‘๑’- :: Tin-
Chuyển đến