Question

Viết chương trình nhập vào mảng A với n phần tử. Cho biết mảng có bao nhiêu số chẵn và tính tổng các số chẵn đó.

GIÚP MÌNH VỚI

Answer 1

Bạn thử xem đúng ko nha.

______________

uses crt;
var n,i,scs,tong:integer;
A:array[1..100] of integer;
f:text;
begin
clrscr;
Write('Nhap N: '); readln(n);
for i:=1 to n do
begin
Write('A[',i,']: '); readln(A[i]);
if (a[i] mod 2=0) then
begin
scs:=scs+1;
tong:=tong+A[i];
end;
end;
Writeln('Day tren co ',scs, ' phan tu chan.');
Writeln('Tong so phan tu chan co trong day la: ',tong);
readln;
end.