Cho mảng nguyên 1 chiều gồm n phần tử ( n<250) nhập từ bàn phím. a, Viết chương trình tính tổng các phần tử chẵn trong mảng b, viết chương trình tính tong các phần tử lẽ trong mảng
2 câu trả lời
program tinh_tong_chanle;
Uses crt;
var M:array[1..250] of integer;
n,i:byte;
a,b:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
a:=0; b:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(M[i]);
if M[i] mod 2=0 then a:=a+M[i] else b:=b+M[i];
end;
writeln('a. Tong cac phan tu chan la: ',a);
writeln('b Tong cac phan tu le la: ',b);
readln;
end.
