Question

Viết chương trình cho phép nhập vào mảng số nguyên và tính tổng các số lẻ

Answer 1

var     A:array[1..100] of integer;n,i:integer;S:longint;
begin
        readln(n);
        for i:=1 to n do readln(A[i]);
        S:=0;
        for i:=1 to n do if A[i] mod 2<>0 then S:=S+A[i];
        write(S);
        readln;
end.

Chúc bạn học tốt

_nguyendavit123_