Question

Cho số nguyên dươg N và dãy a1, a2...aN. Tính tổng các số nằm ở vị trí lẻ

Answer 1

var

s,i,n:integer;

a:array[1..32000] of integer;

begin

write(' nhap so phan tu mang : ');

readln(n);

for i:= 1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

for i:= 1 to n do

if i mod 2 <> 0 then

s:= s + a[i];

write(' tong cac phan tu co vi tri le la : ',s);

readln;

end.

Ý TƯỞNG : nhập số phần tử rồi cho 1 vòng for từ 1 đền n rồi nhập từng phần tử mạng sau đó cho 1 vòng for đến n kiểm tra vị trị ( vị trí là biến mình dùng để chạy for ) có phải lẻ hay không bằng cách chia lấy dư cho 2 nếu là chia 2 mà dư 0 là chẵn còn nếu khác 0 là số lẻ rồi dùng biến cộng phần tử đỏ a[biến chạy] rồi in ra màn hình.

Answer 2

giúp mình với