Viết chương trình nhập vào 1 mảng và cho biết mảng đó có bao nhiêu phần tử chẵn và bao nhiêu phần tử lẻ.Tính tổng các phần tử chẵn
1 câu trả lời
uses crt;
var a : array[1..100] of integer;
i, n, d1, d2, s1 : integer;
begin
clrscr;
write('Nhap so phan tu trong day : '); readln(n);
d1 := 0; d2 := 0; s1 := 0;
for i := 1 to n do
begin
write('Nhap phan tu thu ', i ,' : '); readln(a[i]);
if a[i] mod 2 = 0 then
begin d1 := d1 + 1; s1 := s1 + a[i];
end else d2 := d2 + 1;
end;
writeln('Co ', d1 ,' phan tu chan');
writeln('Co ', d2 ,' phan tu le');
writeln('Tong cac so chan : ', s1);
readln
end.
