Viết chương trình thực hiện công việc nhập 10 phần tử có giá trị nguyên cho mảng A từ bàn phím và tính tổng các phần tử lẻ có trong mảng A
Help me :(((
Uses Crt; Var a:array[1..1000] of integer; i,n,tl:integer; Begin Clrscr; Write('Nhap so ptu N = '); Readln(n); For i:= 1 to n do Begin Write('Nhap a[',i,']= '); Readln(a[i]); End; For i:= 1 to n do If a[i] mod 2 <> 0 then tl:=tl+a[i]; Writeln('Tong cac so le trong day la: ',tl:3); Readln End.
uses crt; var lst:Array[1..10] of integer; i,tong:integer; Begin clrscr; for i:=1 to 10 do Begin write('Phan tu thu ',i,' = '); readln(lst[i]); if lst[i] mod 2 = 1 then tong:=tong+lst[i]; end; write('Tong la: ',tong); readln; end.