Tạo mảng A gồm 5 phần tử là các số nguyên. Hãy tính tổng các số nguyên dương lẻ cs trong mảng A.

uses crt;
var i:byte;
    tong:integer;
a:array[1..5] of integer;
BEGIN
        clrscr;
        tong:=0;
        for i:=1 to 5 do
        begin
                write('Nhap a[',i,']:');
                readln(a[i]);
                if a[i] mod 2=1 then tong:=tong+a[i];
        end;
        write('Tong cac so le trong mang A la:',tong);
        readln
END.

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

Cho mình xin ctlhn.

program oken;
uses crt;
var a: array[1..5] of longint;
    s,i: longint;
begin
    s:=0;
    for i:=1 to 5 do
        begin
            write('a[',i,']: '); readln(a[i]);
        end;
    for i:=1 to 5 do
        if (a[i] mod 2<>0) and (a[i]>=0) then
            s:=s+a[i];
    write('Tong: ',s);
    readln;
end.