Xử lí số trên mảng. {Edited by HSG}

[shopnmm]

1) Lập trình nhập từ bàn phím mảng số nguyên có kích thước n.m(n>0, m<=10). Tính tổng các phần tử không âm và các phần tử lẻ, chẵn. Đưa mảng vừa nhập và kết quả tìm được ra màn hình!

[buiminhphuong]

Bài này là bài cơ bản về mảng 2 chiều đơn giản chứ có thuật toán phức tạp gì đâu.
Bạn chỉ nắm được kiến thức cơ bản là làm được mà!

[hoanglien6886]

Mình bị mắc ở chỗ tính tổng phần tử k âm í bạn

[betterlife]

Các phần tử không âm là có gái trị >=0

[muabandienthoai]

Mình đang bận để tối mình sẽ gõ chương trình đầy đủ cho bạn. Thế bạn đã học hàm và thủ tục chưa vậy? Nếu học chương trình con thì bạn có thể xây dựng mỗi công việc thành 1 chương trình con xem sao nhé!

[thangpham18]

Vậy bài này có thể dùng các câu lệnh như For, If cũng được đúng không bạn?

[4B1601]

Vậy bài này có thể dùng các câu lệnh như For, If cũng được đúng không bạn?

Đúng bạn ạ !
Bài này chỉ cần for rồi if bình thường .
Còn dùng các hàm / thủ tục thì theo mình cũng ko cần thiết .

[quocbaonh08]

Var A:array[1..100,1..100] of integer;
 i,j,m,n,T,tle,tchan:integer;
Begin
 {Nhap voa so phan tu cua mang 2 chieu}
 write('Nhap vao so hang, so cot cua mang:');
 Readln(m,n);
 {Nhap vao cac phan tu mang}
 For i:=1 to m do
   For j:=1 to n do
     Begin
       write('A[',i,',',j,']=');
       Readln(A[i,j]);
     End;
{Dua ra man hinh mang 2 chieu vua nhap}
For i:=1 to m do
 Begin
   For j:=1 to n do
     write(A[i,j]:3);
     writeln;
  End;
  T:=0;tle:=0;tchan:=0;
For i:=1 to m do
 For j:=1 to n do
 Begin
   if A[i,j]>=0 then T:=T+A[i,j];
   If A[i,j] mod 2<>0 then tle:=tle+A[i,j]
   else tchan:=tchan+A[i,j];
End;
writeln('Tong cac phan tu khong am la:',T);
writeln('Tong cac phan tu le la:',tle);
writeln('Tong cac phan tu chan la:',tchan);
Readln
End.

Nhưng mính không biết số âm không chia hết cho 2 có là số lẻ không nhỉ?
VD: -3 có là số lẻ không, nếu là số lẻ thì bạn làm như mình
còn không thì thêm abs vào trước a mod 2.... tức là if abs(A) mod 2....

[nabet68]

Ừhm. Cảm ơn bạn nhé! Thanks..........