Giúp mình viết thuật toán vớiiii Tính tổng các số lẻ trong dãy số a gồm N số (a1,a2,...aN)
2 câu trả lời
Uses crt;
VAR n,i,t: longint;
A: Array [1..100] of longint;
BEGIN
Readln(n);
For i:= 1 to n do begin Write('A[',i,']= '); Readln(A[i]); End;
For i:= 1 to n do
If A[i] mod 2 = 1 then t:= t+A[i]
Write(t);
Readln
END.