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...
Đọc tiếp
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.
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.