Nhập mảng số nguyên gồm N phần tử (không quá 100) - Tính tổng các phần tử chẵn có trong mảng - Thông báo kết quả ra màn hình
2 câu trả lời
program bai_giai;
uses crt;
var a:array[1..100]of longint;i,n,s:longint;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if(a[i] mod 2=0)then s:=s+a[i];
end;
write('tong cac phan tu chan trong day la:',s);
readln
end.
uses crt;
var n, x, res, i: longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(x);
if x and 1 = 0 then inc(res, x);
end;
writeln(res);
readln; readln;
end.
Câu hỏi trong lớp
Xem thêm
