Viết Chương trình nhập dãy số A gồm n số ( n<= 100). Tính tổng và đưa ra màn hình tổng các số lẻ trong dãy A
2 câu trả lời
var a:array[1..100] of integer;
N, i: byte;
S: integer;
Begin
Write('nhap n = '); readln(n);
S:=0;
For i:=1 to n do
Begin
Write('nhap a[',i,'] = ');
readln(a[i]);
If a[i] mod i <> 0 then s:=s+a[i];
End;
Write('tong so le: ', s);
Readln
End.
uses crt;
var n,i,T: integer;
a:array[1..100] of integer;
begin
write('nhap n= ');
readln(n);
T:=0;
for i:=1 to n do
begin readln(a[i]);
if i mod 2 <>0 then T:=T+a[i];
end;
writeln('tong cac so le la ',T);
end.
