viết chương trình nhập số nguyên dương N và dãy a nguyên ( n< hoặc bằng 250 ) gồm n phần tử a1 ..an . Tính và đưa ra màn hình tổng các số ở vị trí lẻ của dãy
2 câu trả lời
uses crt;
var a:array[0..250] of longint;
i,n,t:longint;
begin
clrscr;
readln(n);
t := 0;
for i := 1 to n do
begin
read(a[i]);
if (i mod 2 = 1) then
t := t + a[i];
end;
writeln(t);
readkey;
end.
uses crt;
var n,i,sum:Longint;
a:array[1..250] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(a[i]);
if(i and 1 = 1) then inc(sum, a[i]);
end;
writeln(sum);
readln; readln;
end.
