Viết thuật toán của bài toán sau : nhập vào N phần tử nguyên . HÃY xác định thuật toán tính tổng các phần tử chẵn , tổng các phần tử lẻ
Viết thuật toán của bài toán sau : nhập vào N phần tử nguyên . HÃY xác định thuật toán tính tổng các phần tử chẵn , tổng các phần tử lẻ
phần tử chẵn
b1: nhập n;
b2: for i:=1 to n do
begin
write (‘nhap m[‘,i,’]: ‘); readln (m[i]);
if m[i] mod 2=0 then s:=s+m[i];
end;
b3: xuất kết quả
phần tử lẻ
b1: nhập n;
b2: for i:=1 to n do
begin
write (‘nhap m[‘,i,’]: ‘); readln (m[i]);
if m[i] mod 2<>0 then s:=s+m[i];
end;
b3: xuất kết quả
Chúc bạn học tốt nhé