viết chương trình nhập vào n số nguyên từ bàn phím(n<=100). TÍNH VÀ ĐƯA RA MÀN HÌNH CÁC KẾT QUẢ SAU A. Số lượng số chẵn trong mảng b. tổng các số chẵn trong m ảng
2 câu trả lời
uses crt;
var n,i,count,sum:longint;
arr:array[1..100]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(arr[i]);
if arr[i]mod 2=0 then
begin
inc(count);
inc(sum,arr[i]);
end;
end;
writeln(count);
write(sum);
readkey;
end.
uses crt;
var i,n,t,d:longint; a:array[1..100000]of longint;
begin
clrscr;
write('n (n<=100)=');readln(n);
for i:=1 to n Do
begin
write('a[',i,']=');readln(A[i]);
if a[i] mod 2=0 then begin inc(d); inc(t,a[i]); end;
end;
writeln('A.',d);
writeln('B.',t);
readln
end.
