Đặng Văn Hạnh
Hỏi từ APP VIETJACK
nhập vào một dãy số nguyên a1, a2....an hãy tính tổng các số chẵn và tổng các số lẻ
Quảng cáo
1 câu trả lời 774
2 năm trước
uses crt;
var i,n,s:integer;
a:array[0..100] of integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]’);
readln(a[i]);
end;
s:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 2=0) then
inc(s,a[i]);
write(‘Tong cac so chan *** hon 0 trong day so tren la:’,s);
readln
END.
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!