Question

Yêu cầu:
    Viết chương trình nhập vào n(0 < n ≤ 100) số nguyên a1, a2, ... , an. In ra tổng các số tại vị trí lẻ của mảng.

Input Specification
    Dòng đầu tiên ghi số nguyên không âm n.
    Dòng 2 ghi n số nguyên dương 64 bit cách nhau một dấu cách trống.

Output Specification
    Đưa ra tổng của các số tại vị trí lẻ trong mảng.

Answer 1

program tong_so_le;

var

     n, i, a_i, tong: integer;

begin

     writeln('Nhap vao so nguyen khong am n:');

     readln(n);

     while (n <= 0) or (n > 100) do

     begin

          writeln('So nguyen n phai thoa man 0 < n <= 100, vui long nhap lai:');

          readln(n);

     end;

     writeln('Nhap vao ', n, ' so nguyen a1, a2, ..., an:','<mỗi số nguyên nhập trên một hàng>');

     tong := 0; // Khởi tạo tổng bằng 0

     for i := 1 to n do

     begin

          readln(a_i);

          if i mod 2 = 1 then

               tong := tong + a_i; 

     end;

     writeln('Tong cac so tai vi tri le trong mang la: ', tong);

end.